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GUIA DEL HACKER: 
PENTAGRAM 


Descubrimos los pokes mas 
interesantes del ultimo juego de 
Ultimate y le añadimos una rutina 
de control direccional similar a la 
de los anteriores programas de 
esta firma 


INTERFACE 
RS-232-C (Il) 


Segundo y último de los artículos 
dedicados al montaje de un 
interface RS-232-C, con la 
descripción del software de 
control, la lista de componentes y 
los esquemas del circuito. 


COMPRESOR 
DE TEXTOS 


El equivalente para textos de los 
conocidos programas de 
compresión de pantallas es esta 
rutina que permite almacenar casi 
cincuenta mil caracteres en 35K 
de memoria 


FILL 
ILUSTRADO 


ROTACION 
DE UDGs 


TRES 
EN RAYA 


Aunque el Spectrum carece de 
comandos que faciliten е 
rellenado de figuras, es fácil suplir 
esta deficiencia e incluso ir un 
paso m: Ша y realizar fills con 
entramados. 


El mes pasado vimos cómo se 
pueden invertir los gráficos 
definidos por el usuario. En este 
artículo estudiaremos un 
problema algo más complejo: la 
rotación de UDGs. 


Enseñamos a tu ordenador a jugar 
a las tres en raya, utilizando las 
mismas técnicas que se aplican en 
la programación de juegos de 
inteligencia como el ajedrez o las 
damas. 


SERVICIO DE EJEMPLARES ATRASADOS 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo a: 


Todospect 


Ruego me envien los siguientes ejemplares atrasados de TODOS- 
PECTRUM al precio de 300 pts 
El importe lo abonaré 

D POR CHEQUE б CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO О AMERICAN EXPRESS O VISA O INTERBANK 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


Numero de mi tarjeta 


Fecha de caducidad 


NOMBRE 
DIRECCION 
CIUDAD 

PROVINCIA 


Complete su coleccion de 


Todospectrum 


A continuación le resumimos el contenido delos ejemplares 


aparecidos hasta ahora. 


Núm. 2 - 300 ptas. 

Gráficos | profesionales/Desplaza- 
miento pixel a pixel/Utilización de ги- 
tinas/Construcción del interface 
centronics/Programas de utilidad 
para microdrive/Rutina reset en còdi- 
go máquina/Análisis del editor de 
textos Tasword/Interfaces para im- 
presoras/Programas. 


Núm. 3 - 300 ptas. 

Novedades sonimag'84/Ampliando 
el Basic/Programas para ordenar 
programas/Gráficos con el VU-3D/ 
Lenguaje Forth/Archivos en micro- 
drive/Programación de un interface 
de impresora/Programas. 


Núm, 4 - 300 ptas. 

De profesión: programador/Consola 
рага el Spectrum/Comparación có- 
digo máquina-Basic/Análisis progra- 
ma contabilidad/Calendario/Pascal/ 
Programas. 


Núm. 5 - 300 ptas. 

Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres 
por linea/Juego de la vida/Pascal/Asi 
hacemos las portadas/Control de 
evaluaciones/Programas. 


Num. 6 - 300 ptas. 

Representación de funciones/Todos 
los caminos conducen a Іа ROM/Jue- 
gos/Pascal/Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: torgugas para todos/ Interrup- 
ciones del 2-80/Ргодгатаѕ 


Núm. 7 - 300 ptas. 

Del 48 al PLUS paso a paso/¿Plotter 
para Spectrum?/Juegos/Libros de 
código maquina/Lapiz óptico. Pro- 
gramación del montaje/El LOGO en 
la escuela/Pascal/Floppys рага 
Spectrum/Programas. 


Núm 8 - 300 ptas. 

Amplía tu memoria... a 48K/Arquitec- 
tura: análisis del PREYME/Juegos/ 
FORTH. Nociones basicas/Una clave, 
please/QL Magazine. Ultimas nove- 
dades, análisis de software, Lengua- 
jes/Aula informática con Spectrum/ 
Programas. 


Núm 9 - 300 ptas. 

Spectrum — parlanchin/Juegos/Aula 
informática con Spectrum/Análisis 
Comercial 4/Pascal/Periféricos: Wa- 
fadrive/QL Magazine: EASEL lo mejor 
de PSION. Música con QL/Desplaza- 
miento Pixel a Pixel, aportación de 
lectores/Programas/Programer II. 


Núm. 10 - 300 ptas. 

Discos: invesdisc 200/Juegos/Dos 
programas simultaneos/Proteccion 
del software/Conozca extremadura, 
consulte a su ordenador/Desensam- 
blador 2-80/Sofware educativo/QL 
Magazine: novedades Informat. Hoja 
de cálculo, Ajedrez/Construya su 
propio Joystick/Pascal/programas. 


DISPONEMOS 
DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 


(sin necesidad de encuadernación) 


Núm. 11 - 300 ptas. 
Actualidad/La otra cara del LOGO/ 
Juegos/El Spectrum habla castella- 
no/SOFTAID ayuda para Etiopia/ 
5.О.5. aqui el Spectrum/Dibujar con 
lápiz óptico/QL Magazine: Procesa- 
dor de textos. Teclas de función pro- 
gramables/Programas. 


Núm. 12 - 300 ptas. 
Actualidad/Inteligencia artificial/Lá- 
ріг óptico dk'TRÓNICS/Juegos/Ana- 
lisis/Bingo/Z-80 PIO/Código máqui- 
na/Analisis:  MASTERFILE/Progra- 
mas. 


Núm. 13 - 300 ptas, 
Actualidad/Discos: Discovery 1/Jue- 
gos/Inteligencia artificial/Un nuevo 
sistema operativo/QL Magazine: Ar- 
chive, Cartridge doctor. Aplicaciones 
comerciales/Código maquina/Pro- 
gramas. 


Núm. 14 - 300 ptas. 

Actualidad, Spectrum 128/Calculo 
de estructuras para ingenieros y ar- 
quitectos/HELP utilidades en micro- 
drive/Juegos/El microdrive ese des- 
conocido/Código máquina/QL Ma- 
gazine: GRAPHIC QL. Juegos. Discos 
de 720 K/Un nuevo operativo/Progra- 
mas. 


Num. 15 - 300 ptas. 
Actualidad/Spectrum 128/Un nuevo 
operativo/Circulos  redondos/Jue- 
9os/Utilidades: BETA-BASIC/QL Ma 
gazine: Introducción al SUPER BA- 
SIC. Nuevas utilidades/Hardware 
Puertas lógicas/Código máquina/ 
Programas. 


Núm. 16 - 300 ptas. 
Actualidad/Cinco | horas соп 
SCREENS/Hardware ргасіісо/Саі- 
culos de infinita precisión/Juegos/ 
Un nuevo operativo/QL Magazine: 
Gráficos en SUPER-BASIC. Dibujan- 
do con ratón. Archivos con Archive. 
Programa/La última batalla, Juego 
estratégico. 


Núm. 17 - 300 ptas. 
Actualidad/Gráficos  interactivos/ 
Juegos/Código máquina/Un nuevo 
operativo/Trucos de programación/ 
QL Magazine: Radiogratia del QL. 
Gráficos en SUPER-BASIC/Libros/ 
Programmas 


Núm. 18 - 300 ptas. 
Actualidad/Introducción al C/Libros/ 
Juegos/De cinta a microcinta/Visión 
panorámica de los microprocesado- 
res más comunes/QL Magazine: Co- 
py de grises. Microprocesadores 
68000, una familia numerosa/Curio- 
seando en la ROM/Programas. 
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Si deseas colaborar en TODOSPECTRUM 
remite tus artículos o programas a Bravo 
Murillo, 377, 5.0 А. 28020 Madrid. Los 
programas deberán estar grabados en 
cassette y los artículos mecanogratiados. 
А efectos de remuneración, se analiza cada 
Colaboración aisladamente, estudiando su 
complejidad y calidad. 


EDITORIAL 


EL NUEVO 
SPECTRUM 


Como estaba previsto, la Personal Computer World Show 
fue el escenario en que Amstrad presentó el nuevo Spectrum 
128K +2. En contra de los rumores que se dejaron oír hace 
unos meses, no se trata de una máquina revolucionaria, sino 
más bien de un Spectrum 128 con algunas mejoras y un 
aspecto diferente. La misma capacidad de memoria, gráficos y 
sonido, pero por fin un teclado verdaderamente profesional y 
un cassette incorporado que le confiere un innegable parecido 
al Amstrad 464. También posee dos ports de joystick, que, por 
desgracia, sólo podrán utilizarse con los nuevos joysticks Sin- 
clair. Y como ya viene siendo habitual, Amstrad ha vuelto a 
rizar el rizo ofreciéndolo a un precio inferior al del propio 
Spectrum 128. 

Precisamente la tendencia generalizada a la bajada de pre- 
cios es la noticia más destacable últimamente en el campo de 
la microinformática. No hace mucho tiempo (apenas unos 
meses), comprar un IBM PC o cualquiera de las máquinas 
compatibles nos hubiera costado más de trescientas mil pese- 
tas. Ahora, por menos de la mitad, es posible adquirir un com- 
patible más rápido, con más memoria y con mejor resolución 
gráfica que el ordenador de IBM, el Amstrad PC 1512, autén- 
tico centro de atención de la Personal Computer World Show, 
Y además de Amstrad, Investrónica y Spectravídeo también 
están ofreciendo compatibles PC a precios de ordenador 
doméstico, poniendo al alcance de los particulares equipos de 
elevadas prestaciones que hasta hace poco estaban restringi- 
dos al ámbito empresarial. 


TODOSPECTRUM @ 


PENTAGRAM es la última creación de ULTIMATE, y tiene 
un enorme parecido con los famosos Knight Lore y Alien 8. 
Sin embargo, aporta algunas características interesantes que 


o primero que intento hacer a 
la hora de enfrentarme con un 
juego para descubrir sus secre- 
tos, es conocer lo más posible acerca 


lo hacen destacar sobre éstos. 


de él, su argumento, el objetivo, la 
forma de jugar, etc. Hay veces que 
esto resulta bastante dificil, pues las 
instrucciones pueden resultar enig- 


máticas (los señores de ULTIMA- 
TE son especialistas en esto). Sin 
embargo, consultando diversas 
fuentes, conseguí enterarme de qué 


LS ER E E EE EEEEEEEEC_A E o] 
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ега lo que habia que hacer. El objeti- 
vo del juego es encontrar el Penta- 
grama. Para ello, ayudados de unos 
cubos llenos de agua mágica y que 
podremos conseguir disparando a 
los pozos que hay en algunas panta- 
llas, deberemos arreglar cuatro es- 
pecies de «obeliscos» que se encuen- 
tran en otras tantas pantallas. Una 
vez hecho esto, aparecerá en una 
habitación, hasta entonces vacía, el 
Pentagrama, que no es otra cosa que 
una estrella de cinco puntas inscrita 
en un círculo. Ya sólo nos queda co- 
locar en cada una de las puntas una 
de las cinco piedras con extrañas 
marcas que se erfcuentran reparti- 
das aleatoriamente por las 139 pan- 
tallas que tiene el juego. 

Tras enterarme es esto, cargué el 


“шы, 


programa рага hacerme una ргіте- 
ra idea acerca de la protección y ju- 
gar unas cuantas partidas. Esto últi- 
то е5 ітрогіапіе, pues debemos sa- 
ber exactamente cómo se comporta 
nuestro personaje en determina- 
das situaciones, ya que esto nos ayu- 
dará a imaginarnos un poco cómo 
serán las rutinas que lo controlan, lo 
que nos facilitará su identificación si 
damos con ellas. 


Instalación en el 
microdrive 

La protección no parece compleja 
en absoluto. Lo primero que carga 
son dos programas BASIC. El pri- 
mero dibuja el logotipo de Erbe (la 
distribuidora del programa para Es- 
paña) y carga el segundo. Aparente- 


А ҮК 


чу, 


шу, 


Б. 


mente no tiene ninguna otra fun- 
ción. Probé a saltármelo y cargar di- 
rectamente el segundo programa 
BASIC. Al finalizar la carga pude 
comprobar que el juego funcionaba 
perfectamente. Ahora sólo tenía 
que estudiar el segundo programa 
BASIC. A primera vista sólo tiene 
una línea, con número cero, que 
contiene dos pokes típicos de las 
protecciones: POKE 23613, 0 y PO- 
KE23659,0. Sin embargo, estos pokes 
no son lo que parecen ser, sino que 
en realidad son otras direcciones y 
otros números los que se pokean, 
estando cambiados los códigos AS- 
CII de estos para despistar. La ver- 
dadera función de estos pokes, una 
vez se ha descubierto cuáles son, es 
la de hacer aparecer el resto del pro- 


іш, Ж 
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GUIA DEL HACKER 


1 DATA “DD21EOF9111CO23EFF370 
D560530F 1DD2100401 1001 BSEFFS7CD! 
BFADD21A06D119E7A3EFF37CD56122E" 
2 DATA "OIDZONOOFIJECTIZIECAZ 
15583229FC4210030 22080022 1000218 
ОЗр22ЕАСА220С0621Е2ЕА11Р5921157" 
3 DATA "014E01EDBOZ1A06D1100S 
E019E7AEDBO21FFSD22B25C 3616 2BF 92 
B2B223DSC2ASISC224B5C 3680250 
а DATA “22595C340D233680: 
15С22025622655СЕВАЕСр01162595126 
DS2E9CB4F 021 884CBS72068CESF OF DA" 
5 DATA "C20984CB47C20E34 EBFC 
DSZE9EG012864F SAF 3248C43EC932B7E 
006962191 847BRE20032S10F9E512AB" 
6 DATA "3DIZ207C4CSZ12197340D( 
SAFO42CCSCDDAAFC1 SE7FCDS2B9E40" 
B10CB47201EE60220163100SE21 105% 
7 DATA "21A7343EDD3207B03E077 
248C4C3C5AF 10D4C1E110BA3EDD3287B 
03E073248C431005EFIC393AFFD1315" 
8 DATA "CBOIAEFDCEO16EZBFAJAO 
BYCFES03816FE 5A3012D6305F871 
60021045В195Е2556227Е122Е7ЕС 
9 DATA "СрЧ2В9С20185219084 180 
140841 104BF0 10300EDEO188FDDESD 
D2100401 1001 83EFFCDC204DDE 1 10F 9" 
10 рата "18AD2802CEE13E04CB412 
BO1AFCBA928023E010E5128023E02CE5 
928023E03FE0428 1C5FDDESDD? 1008" 
11 DATA "AFA7CDBDCSDDE 11600218 
1841919191 95F 1979 6F OB44F SEBDCD! 
2892802C8D93EF 7CDI2B9E60828135, 
12 DATA "O2CBD9CIOBEFOA0 101020 
10402010201040101020104747574737 
2MALIGBSAGUASFFC320842802CBOB1D" 
QD РАРЕЯ O: BORDER 0: INK 7: C 
LEAR 28007: RESTORE + LET 
LET с=12: LET 
LET ad=5e4 
“LEYENDO LINEA 
: PRINT АТ 0,16 


220 READ ate LET b$=a$ (LEN af-3 

TO 9: LET af=a$( TO LEN af-4): 

IF LEN ағ/2<21МТ (LEN as42) THEN 
PRINT FLASH 11AT 0,03"LINEA 1 

МРАК EN": STOF 

Т wo: FOR TO LEN as 

LET veVAL аж (x) #16+VAL а 


LET ad=ad+l: МЕХ 
3 LET м=0: FOR 
VALGFVAL BEG: NEXT 
w THEN PRINT FLASH 1; 
RROR EN LINEA ": STOP 
NEXT 2 

9 CLEAR : INPUT "QUIERES GRAB 
EN CINTA? "s LINE А 
Б" OR AS="5" THEN SAVE 
PENTA" LINE 2 


10 4: LET 
IF ve 
0,03 "E 


POKE X+1,PEER 22671: 
B: NEXT X 

ON ем MARCHA LA CIN 
RANDOMIZE USR АЕА 


290 PRINT.” 
TA ORIGINAL 
300 DATA 494 
183,4,87,8,88,8,6,8,17,49524,6 
8,4 


В: 


grama. En las lineas que aparecen, 
lo primero que encontramos son de 
nuevo los mismos pokes, pero esta 
vez de verdad. Tras esto hay una Па- 
mada a una rutina en código máqui- 
na cuya dirección también es distin- 
ta de la que aparece en el listado. Lo 
que viene después es sólo para des- 
pistar y no tiene ninguna utilidad. 
La rutina en código máquina hace 
un Idir de un bloque de 206 bytes a 
la parte alta de la memoria. En estos 
se encuentra una rutina de LOAD 
de alta velocidad, aunque bastante 
semejante a la de la ROM. Con esta 
rutina se carga la pantalla de presen- 
tación y el buffer de la impresora, 
para después ejecutar lo que se ha 
cargado en el buffer. Aquí se carga 
el bloque principal a velocidad nor- 
mal. Ya tengo todos los datos que 
necesito saber: el bloque principal 
se carga a partir de la dirección 
24064 y tiene 31390 bytes de longi- 
tud. Para asegurarme de que no es 
necesaria la presencia del programa 
BASIC en la memoria para que el 
juego funcione correctamente, 
pruebo a crear una cabecera falsa y 
cargar solamente el bloque princi- 
pal con LOAD *” CODE. Al termi- 
nar la carga lo ejecuto con RANDO- 
MIZE USR 24064 y compruebo que 
funciona perfectamente. Ahora me 
dispongo a pasarlo a microdrive. Еп 
realidad, no es que sea necesario pa- 
sar un programa a microdrive para 
estudiarlo, pero resulta verdadera- 
mente tedioso tener que cargar el 
programa desde la cinta cada vez 
que probamos un poke y deseamos 
continuar la investigación. 

Para pasar el programa a micro- 
drive el único problema que tengo 
es que comienza en una dirección 
muy baja, pero esto es fácilmente 
superable, pues queda espacio de 
sobra por arriba, así que lo que hago 
es cargarlo en una dirección más al- 
ta y transportarlo a su verdadera di- 
rección con un LDIR una vez finali- 
zada la carga. Además, también ten- 
go sitio de sobra para ubicar el 
MONS, cosa que hago en la direc- 


ción 57000. Sin embargo no es posi- 
ble volver al monitor desde el juego, 
ya que éste utiliza la memoria don- 
de se encuentra el desensamblador 
para la construcción de gráficos y al- 
gunas otras cosas. 


Los primeros pokes 


Al empezar a desensamblar me 
da la impresión de que estoy desen- 
samblando el Knight Lore. Es como 
si hubieran cogido el listado fuente 
de éste y hubieran hecho los cam- 
bios necesarios hasta conseguir el 
listado del Pentagram. En la direc- 
ción 24064 hay simplemente una 
instrucción DI y un salto a la direc- 
ción 44935 tras haber puesto la pila 
en 24064. En la dirección 44935 em- 
pieza el programa principal. 

Casi al principio, en 44967, hay un 
LD Аз seguido por un LD 
(42785),A. No puedo resistirme a 
probar a cambiarlo antes de conti- 
nuar. Como cabía esperar, es el nú- 
mero de vidas. Con esto ya podemos 
elegir el número de vidas con que 
queremos jugar. Ahora, sabiendo 
que las vidas se almacenan en 
42785, resulta fácil encontrar un po- 
ke para vidas infinitas, con sólo bus- 
car dónde es decrementado su va- 
lor. Me encuentro que se hace den- 
tro de una subrutina que comienza 
en 49900, y que es llamada un poco 
después del punto donde se inicia- 
lizan las vidas. Esto me da pie para 
pensar que desde la dirección 44997 
en adelante se encuentra el bucle de 
juego, y todo lo que hay antes se en- 
carga de la presentación y las opcio- 
nes. 
El poke para la inmunidad fue 
más costoso de encontrar, y no lo 
consegui hasta bastante después. 
Encontré un lugar donde se testea- 
ban los valores de (1X+0) y (IX+1), y 
si ambos eran cero se saltaba a 
44997, donde yo ya sabía que se de- 
crementaban las vidas. Probé a eli- 
minar el salto. El resultado no fue el 
esperado. Todo empezó con norma- 
lidad. Me acerqué a unos pinchos y 
fui destruido. Parecía que el poke no 


tenia ningun efecto. Sin embargo, 
enseguida me di cuenta de que si lo 
tenia. Cuando el personaje «explo- 
tó», el programa pareció no enterar- 
se de ello. El resto de los seres que 
había pululando por la pantalla con- 
tinuaron haciéndolo normalmente. 
Todo parecía normal, salvo que el 
protagonista ya no estaba y no vol- 
vía a aparecer. La caúsa-es que el 
punto modificado no se encarga de 
comprobar si colisionamos con al- 
go, sino de comprobar si ya hemos 
terminado de explotar, En cualquier 
caso todas estas investigaciones me 
servirían después рага ir enterando- 
me de qué era lo que debia hacer si 
queria visualizar una determinada 
pantalla y que se moviera todo lo 
que habia en ella. Pude averiguar 
que el bucle principal de juego 
siempre que no se saliera de panta- 
lla o nos mataran, se cerraba sobre 
45018, porque ésta ега Іа dirección a 
la que se saltaba cuando la compro- 
bación anteriormente citada era ne- 
gativa. Después pude encerrar den- 
tro de este bucle otro más pequeño 
que se repetía para cada uno de los 
objetos existentes en la pantalla, ya 
sean piedras, fantasmas, disparos о 
el propio personaje. Cada objeto 
ocupa 32 bytes, aunque nuestro per- 
sonaje ocupa el doble porque es tra- 
tado como dos objetos separados, 
uno de cintura para arriba y otro de 
cintura para abajo. Esta técnica ya 
era usada en el Knight Lore, y ser- 
vía, por ejemplo, para utilizar las 
mismas piernas en distintos perso- 
najes (el Sabreman, el soldado, 
etc.), con el consiguiente ahorro de 
memoria en los gráficos. 

Ahora tenía más reducida la bús- 
queda, porque sabía que la compro- 
bación de colisión con los objetos 
había de estar dentro de este bucle 
pequeño. Lo que me despistó fue 
que la comprobación se efectuaba 
dentro de una subrutina a la que no 
se llamaba con un call. Dentro de el 
bucle pequeño, en el que cada vez 
se va actualizando el registro IX pa- 
ra apuntar a los datos del objeto co- 


Tabla 1. POKES 


Número de vidas POKE 44968,0 
Vidas infinitas POKE 49917,175 
No imprime vidas POKE 49310,201 


Disparo sin soltar tecla 


POKE 49465,0 
Disparo automático у 

РОКЕ 49454,24 

РОКЕ 49465,0 
Inmunidad POKE 50247,24 


Altura del disparo 
POKE 49534,n 
Duración sonido durante juego 
POKE 49183,n 
Pantallas donde se quiere empezar 
POKE 49896,n 
РОКЕ 49897,п 
POKE 49898,n 
POKE 49899.n 
Muerte instantánea | 
РОКЕ 50248,0 


Tabla 2. РоКев de disparo 
(todos los pokes en 49493) 


Nada 1 
Abol 6 
Arafia 17 
Pincho movible 28 
Cepo 30 
Cepo manso 31 
Patas de Sabreman 32 
Fantasma 48 
Bloque movible 63 
«Pedorretas» 66 
Tronco movible 72 
Mesa movible 73 
Charco 74 
Charco con planta 75 
Piedra movible 79 
Bruja 80 
Piedra sube 84 
Piedra sube-baja 85 
Dragón sube-baja 86 
Bloque móvil 1 87 
Bloque móvil 2 88 
Araña aleatoria 89 
Cubo 90 
Piedra inamovible 91 
Dragón móvil 1 92 
Dragón móvil 2 93 


Objeto invisible 99 
Pozo 120 
Bloque movible 121 
Runo 1 144 
Runo 2 145 
Runo3 -> 146 
‘Runo 4 AO Т 
Runo 5 148 
Disparo normal 150 
Bicho con tentáculos 160 
Bola amorfa 164 
Zombie 168 
Tabla 3. 

Pokes predefinidos 


0 Disparo normal 

1 Dispara pozo 

2 Dispara tronco movible 
3 Dispara piedra sube-baja 
4 Dispara piedra móvil 1 
5 Dispara piedra móvil 2 
6 Dispara árbol 

7 Dispara araña 

8 dispara alto 

9 Dispara bajo 


Tabla 4 
Posibles ubicaciones 
de runos 


En cada partida se eligen de for- 
ma aleatoria 5 lugares entre un total 
de 20 posibles. Para modificar algu- 
no de estos 20, se deberán hacer los 
siguientes POKES: 


POKE D, Código de la habitación 
POKE D+1, Coordenada 1 
POKE D+2, Coordenada 2 
POKE D+3, Coordenada 3 (Vert) 


Cuando D toma uno de los valo- 
res siguientes: 


5366) 53673 53677 53681 
53685 53689 53693 53697 
53701 53705 53709 53713 
53717. 53721 53725 53729 
53733 53737 53741 53454 


GUIA DEL HU 


rrespondiente (empieza en 42863 y 
va siendo incrementado en 32) se 
busca una dirección en una tabla, 
utilizando como índice de la misma 
el contenido de (IX+0). Entonces se 
salta a esta dirección con un JP 
(HL), asegurándose de que después 
se retornará a 45086, donde continúa 
el bucle principal. Esto me hace 
pensar que (1Х+0) contiene un có- 
digo identificador del tipo de objeto 
de que se trata, y que рага cada obje- 
to hay una parte del bucle que debe 
ser distinta, y que por eso está colo- 
cada en una subrutina. Así, según 
cada caso, se llama a una subrutina 
u otra. El problema que tenía ahora 
era averiguar a qué subrutina c 
rrespondía el control de nuestro Sa- 
breman. Por suerte recordé que en 
una de las rutinas llamadas durante 
la inicialización se hacía un traslado 
de bytes desde otra dirección hasta 
42863, que es justo el comienzo de 
la tabla de objetos. Estos no podían 
ser otra cosa que los datos iniciales 
del personaje (las coordenadas don- 
de aparecemos en la pantalla, la di- 
rección a la que miramos, etc.). El 
primer byte de éstos era 32, así que 
busqué qué subrutina correspondía 
adicho código. Esta se encuentra еп 
50240. En ella, tras una llamada a 
otra dirección, se testea un bit refe- 
rido a IX, y realiza un salto condicio- 
nal según su valor. Es casi seguro 
que es aquí donde se comprueban 
las colisiones con otros objetos. 
Pruebo a hacer incondicional el sal- 
to, y consigo la ansiada inmunidad. 
Si en vez de hacerlo incondicional, 
lo suprimo, el resultado es que mo- 
rimos nada más aparecer en la pan- 
talla. 


Un Super POKE 


La verdad es que una vez encon- 
trados los tres pokes que he explica- 
do en el apartado anterior, no se me 
ocurría qué otros pokes podían ser 
interesantes. Durante la búsqueda 
de aquéllos había encontrado algu- 
nos pokes curiosos por los efectos 
que producían, pero ninguno era 
realmente útil para facilitar la con- 


secución del juego. Como me pare- 
cía poca cosa lo que había descu- 
bierto anteriormente, decidí inten- 
tar añadirle al juego algo que no 
tiene y que poseen la mayoría de 
los juegos en tres dimensiones, in- 
cluidos Knight Lore y Alien 8: el 
control direccional. Supongo que 
no se lo han puesto porque supone 
la necesidad de una tecla más, sin 
embargo a mí me parece un ver- 
dadero fastidio porque estaba acos- 
tumbrado a controlar así al persona- 
je y no lograba hacerme con el con- 
trol rotacional. Para comenzar me 
puse a buscar las rutinas de explora- 
ción de teclado y joysticks. Descubrí 
que todas confluían en 48904, don- 
de se almacena el dato leido en la di- 
rección 42807, de modo que comen- 
zé a buscar puntos en los que se hi- 
ciera referencia a esta dirección. En- 
contré tres. El primero era el que ya 
había visto, en el апе ев inicializada. 
En el segundo, nada más leído el 
dato, hace un and у se queda соп el 
bit de recogida de objetos, así que 


Sabiendo que el número de 
vidas se almacena en la 
dirección 42785, resulta 
fácil conseguir un poke de 
vidas infinitas. 

латына энш nen ee em ага. 
ésta no podía ser la rutina principal 
de control del movimiento. Por 
eliminación, debería tratarse del 
tercer punto de los que encontré. 
Mi decepción fue mayúscula al 
comprobar que no era así. En ésta 
se hacía también un and, aunque 
ahora el bit correspondiente a la 
tecla de disparo. La única solución 
era que se refiriera a la dirección 
mediante los registros ІХ о ТҮ. Pero 
antes de continuar, decidí estudiar 
un poco lo que parecía ser la rutina 
de disparo. Esta rutina crea en la ta- 
bla un nuevo disparo siempre que 
no existan ya dos de ellos y que la te- 
cla de disparo no la tengamos pulsa- 
da desde antes. con esto conseguí 
otros dos pokes, el de poder disparar 


HEN 


varias veces sin necesidad de soltar 
la tecla entre un disparo y otro, y el 
de disparo automático. Pero lo más 
importante es que encontré el punto 
en el que se creaba la tabla con los 
daots del disparo. Aquí pude ver 
que el código del disparo es 150. En- 
tonces pensé: ¿qué pasaría si cam- 
biara el código del disparo”, ¿haré 
disparos en forma de roca o algo así? 
Hice la prueba con algunos valores y 
los resultados fueron más que sor- 
prendentes. Podemos disparar cual- 
quier cósa: desde un tronco que nos 
servirá para subirnos encima, hasta 
una araña que será útil a quien pien- 
se que las pantallas son demasiado 
fáciles, pasando por un árbol que 
queda muy decorativo en medio de 
la habitación. Cuando los vi los re- 
sultados me puse a probar con to- 
dos los códigos. Los resultados más 
interesantes pueden encontrarse en 
la tabla dos. 


El cargador 

Con todo lo que había descubier- 
to anteriormente, me encontraba еп 
disposición de elaborar un cargador 
con diversas nuevas opciones. 


EI TS AR ER SRS SS SS аса цуг 
AAA ыала нааме наннан ннн 


SCORE 


Durante el estudio de la rutina de 
disparo encontré una subrutina que 
devolvía la dirección a la que estaba 
mirando el Sabreman. Sabiendo es- 
to elaboré la rutina de control direc- 
cional. El principio es muy simple: 
calculo la dirección hacia la que 
queremos dirigirnos y la comparo 
con la dirección hacia la que va Sa- 
breman. Si son iguales modifico el 
dato para que el programa crea que 
se ha pulsado la tecla de avanzar. Si 
son distintas, cambio el dato para 
hacer creer al programa que se ha 
pulsado izquierda o derecha, según 
haya que girar a la izquierda о a la 
derecha para pasar de la dirección 
en la que estamos a la dirección en 
al que queremos estar. 

Naturalmente, como utilizamos 
cuatro teclas para las cuatro direc- 
ciones, necesitamos otra más para la 
opción de salto. Para este menester 
he reservado la fila de la A a Enter, 
además de la tecla 4. Por estas razo- 
nes, el control direccional no se po- 
drá utilizar con la opción de teclado 
(podremos jugar con el teclado, pe- 
ro mediante las teclas del cursor o 
las del joystick Sinclair), ni con el 


joystick Sinclair que corresponda a 
las teclas 1-5, así que si queremos el 
control direccional deberemos utili- 
zar joystick Kempston, los cursores 
o el joystick Sinclair correspondien- 
te a las teclas 6-0. 

Con todo lo que había aprendido 
sobre el bucle principal mientras 
buscaba el poke de lainmunidad, no 
me fue demasiado dificil encontrar 
la forma de ir visualizando secuen- 
cialmente las 139 pantallas. Elúnico 
problema fue que éstas no estaban 
numeradas de 0 a 138, como era de 
esperar, sino de 0 a 149, quedando 
enmedio algunos huecos que hacen 
que se bloquee el ordenador al in- 
tentar visualizar pantallas inexisten- 
tes. 

Por último, pensando en el polifa- 
cético poke del disparo, pensé quie 
sería útil poder variar durante la par- 
tida el objeto que disparamos. Para 
esto he incluído en el cargador, 10 
teclas con pokes «definibles», y 
que podremos seleccionar pulsando 


Cada objeto, ya sean 
piedras, fantasmas o 
disparos, ocupa 32 bytes. 
Sólo Sobreman ocupa el 


en modo pausa una tecla del 0 al 9. 
Los pokes que queramos asignarles 
habremos de ponerlos en la línea 
300 del listado uno, empezando por 
la dirección y el contenido del poke 
para la tecla cero y terminando por 
los de la tecla 9. En la tabla 3 se pue- 
den ver los pokes que se incluyen en 
el cargador como ejemplo y que 
pueden ser modificados sin ningún 
problema. 

Una vez introducido el cargador 
pondremos la cinta original. Al fina- 
lizar la carga, y si todo ha ido bien, 
aparecerá el conocido mensaje “c 
1982 Sinclair Research Itd.”, pero 
sobre fondo negro y sin borrarse el 
dibujo de la pantalla de presenta- 


ción. Ahora podemos introducir 
otros pokes que no necesiten variar 
alo largo de la partida, y que por tan- 
to, no necesiten estar entre los 10 
predefinidos, como pueden ser el de 
vidas infinitas, o alguno así. Cuando 
hayamos introducido todos los po- 
kes que queramos, ejecutaremos el 
programa con RANDOMIZE USR 
24064. Comprobaréis que el juego 
de caracteres especial del juego ha 
desaparecido, y que los mensajes se 
escriben con el juego de caracteres 
de la ROM, además de que los espa- 
cios se sustituyen por iguales. Esto 
es porque he necesitado la memoria 
que ocupaba el juego de caracteres 
para incluir el cargador con las nue- 
vas Opciones, ya que no había otro 
lugar libre en la memoria. 

Si todo ha ido bien, el juego em- 
pezará normalmente y lo controla- 
remos rotacionalmente. Para pasar 
al control direccional, hay que pul- 
sar la tecla C o Іа М en modo pausa. 
Para volver al control rotacional, 
pulsar también en pausa las teclas V 
o B. Además, con la Z podremos 
grabar una pantalla en cinta y con la 
X o la М abortaremos el juego. 

Para visualizar las 139 pantallas 
hay que pulsar ENTER. Para pasar 
rápidamente a la siguiente, pulsar 
Shimbol Shift. Si queremos conti- 
nuar el juego desde la pantalla que 
aparezca en ese momento, pulsar 
M. Para terminar de ver el mapa y 
comenzar una nueva partida, pulsar 
SPACE. Hay que tener cuidado con 
la opción M dentro de la opción de 
visualización de pantallas, pues po- 
demos aparecer encima de un pin- 
cho y perder todas las vidas una tras 
otra. Para ello, antes de pulsar la M 
hemos de asegurarnos de dónde va- 
mosa aparecer, lo cual nos seráindi- 
cado por una explosión que aparece 
cada vez que pasamos a otra panta- 
lla. 

Con todo esto, creo que se facilita 
bastante la tarea de terminar el jue- 
go, aunque aún quedan muchas co- 
sas por descubrir. Espero que al- 
guien se anime a intentarlo. 

Pablo Ariza 


SERVICIO DE 


Completa tu colección de ZX. 
A continuación te resumimos el contenido de los ejemplares 
atrasados en existencia. 


Núm. 12/300 ptas. Núm, 15/300 ptas. 
Núm. 9/300 ptas. Presentación del Ѕрес-| — Simuladores de vuelo 

Construye tu propio jue- | trum Plus. Forth, capitulo Forth, cuarta parte. Monta: 
go. Catorce programas pa- | Gráficos en el Spectrum, 4 | jes: Reloj digital para Spec: 
ra el verano. Gráficos en el | parte. Libros. Programas y | trum. BASIC para pri 
Spectrum montajes plantes. Libros. Programa 


Núm. 6/300 ptas. 

Num. 3/300 ptas. Construya su propio jue 
El Spectrum por dentro. | go/13 programas y monta 

Quince programas, juegos | ¡es/ideas/Sofware. 

y montajes Software. 


Núm. 16/300 ptas. 
Cassettes: solución a los 
problemas de grabación. 
Test de Psicología. Sisten 
de Desarrollo par 
81. Cinemática. 


13/300 ptas. 

Guía del software para el 
Spectrum todos los progra 
cativos: geografia, cramer, | mas del mercado, Forth, 
gráficos, razones trigono- | capítulo 2. Visitamos Sin: 
métricas, elongación clair Research. Libros. Pro- 


Núm. 4/300 ptas. Núm. 7/300 ptas. 


зага: 


С Sine] egos intelige 5 oft г Anim: з аай 
QL, el nuevo Sinclair, Die: Juegos intelig ss а mas. Animación Gráfica. 
QL, elnu f 9 go maquina gramas ae 
ciocho programas, juegos, | Ware’ 11 programas/L 9 y para principiantes 

montajes, ideas/Noveda- | P'S (2). Forth, quinta parte. 


des 


2 
‘Como crear 


marcianos 


ғы? Num. 14/300 ptas. 
Num. 11/300 ptas. Cómo jugar al Hobbit. | Num. 17/300 ptas. 


Сото crear marcianos y | Graficos de funciones. Pro- | Mapa de Atic-Atac. Estira 
Num. 8/300 ptas. otros monstruos. gramas de ajedrez. Cone- | de caracteres. Dinámica de 


Núm. 5/300 ptas. La aventura es la aventu- | Diez programas satélites | xiones con el P 1/0. Progra- | una particu! 
Gráficos y sonido en el [га/12 programas/Juegos y | de jupiter. mas Multiplic, enseñar de- | Magazine 
Spectrum/Libros/Software/ | montajes/Código  máqui- | circulo, préstamo letando. Libros, Forth, ter- | Convertidor analog 

13 programas. na по. cera parte. gital con el P /О 


EJEMPLARES ATRASADOS 


Num. 20/300 ptas. 
Vacaciones con informa 


Num. 18/300 ptas. 


› 85. Forth, sexta | "са. Critica. Noticias, Pro Num. 24/300 ptas. 

Programas, BASIC | gramas. Son muy diverti- | bado? Programa Juegos/Mapas del No- | Núm. 26/300 ptas. 
principiantes (3). Plot. | 495. Libros, Generación de | procesador de textos, Ge-| des ol Yesod y Lords of | Spectrum o QL, invasión 
Gráficos. Libros г 5 culto impreso. | neración de placas de сіг- | MidnighéHas probado?/ | de los 128/¿Cómo utilizar 

mos. Otilica Forth. Movimiento armóni- | cuito impreso (segunda| Sois muy divertidos/L mejor el microdrive?/Jue 
о simple. Spectrum musi- | parte). Pr espa-| rio/Ajuste de агайс зоѕ/Мара del Dun Darach 


cal ñol. Quinielas en Spectrum. | search/Pre 
BASIC para principiantes | je: invers 
(6) 7 


ram y misión imposible/Progra 
г de video para | mación  estructurada/BA. 
81/Dossier О! SIC. 


Num. 21/300 ptas. 

>-| Мара de Underwurlde 
Libros. EI ZX- | Noticias. Critica. ¿Has pro 
umar. Scroll | bado? Programa especial: 
г s arquitos. Sois muy diverti 


шеп 
кереше 
Num. 23/300 ptas. 
Critica, ¿Has probado? 
Profanation profanado. Мо- | Núm. 25/300 ptas. 
dos. Libros para el verano. | ticia cos para Spec-|  Juegos/Especial juegos, | Núm. 27/300 ptas 
Jn poco de física. BASIC | trum. Dossier educación: | Mapas y trucos de: High: La vida de Sinclair/Pie- 
раға principiantes (5) Spectrum en el aula, autoe- | way encounter, Tir Na Nog, | zas musicales para Spec 
valuación, Logo. Código] Nightshade/¿Qué el | trum/Juegos/Mapas del 
DISPONEMOS DE TAPAS ESPECIALES | Procremecion Stack?/Program ARNHCM SABOTEUR/ 
PARA SUS EJEMPLARES DE ZX especial: quinielas. Monta-| Codigo máquina/Lotería | Areas/BAS impre- 


(sin necesidad de encuadernación) jea primitiva/Standares de la | sora/Elá able y la 
para principiantes (7) informática/Programas Instrucción RS 


om Para hacer tu pedido, rellena el cupón adjunto, 

ШТ) pios. córtalo y envíalo HOY MISMO a: 

MAA Bravo Murillo, 377 +28020-MADRID «Tel. 733 74 13 — 45 
= 22, ue 


| 195 ejemplares atrasados de ZX serán una fuente constante de Cono- 
cimientos, ideas, soluciones y entretenimientos para el futuro. Todo lo 

| anterior hace recomendable que los guardes ordenadamente en una de 

| las tapas especiales para ZX. Cada tapa puede contener 6 ejemplares 

y cuesta solamente 650 ptas 

\ Ruego me envien: los siguientes: ejemplares atrasados de ZX 

A al precio de 300 ptas. cada uno 

| Por favor envien .......... tapa(s) al precio de 650 ptas. cada una 

| (+ gastos de envio) 

| 

| 

| 

| 

| 

| 

| 

1 


El importe lo abonaré: 
D contra reembolso O cheque adjunto O con mi tarjeta de crédito 
D American Expres O Visa O Interbank 


Fecha de caducidad 
Número de mi tarjeta | T | | T 


(en cada tomo | NOMBRE .. 
se pueden DIRECCION 
encuadernar POBLACION .. 
6 números) PROVINCIA 


INTERFACE SERIE 


El primer programa se encarga 
del envío de una palabra, y el segun- 
do de la recepción. A ambos se acce- 
de mediante instrucciones DEF FN, 
como se indica a continuación: 


DEF FN E(a)=USR 65024 
DEF FN RO=USR 65081 


La instrucción FN E(x) tendrá el 
efecto de enviar por la línea RS-232 
el valor de x. Si lo usáramos en una 
sentencia de asignación —LET a= 
FN E(x)—, podríamos saber si la or- 
den se ha llevado a cabo, o por con- 
{га la hemos interrumpido desde te- 
clado usando la tecla SPACE. Para 
ello bastará con comprobar si el va- 
lor de retorno es mayor que 256. Si 
así fuera, se ha producido un error. 

Asimismo, un LET a=FN R(x) 
asigna a la variable A el número re- 
cibido por la línea. La condición es 
la ya comentada. 

En cuanto a los programas en sí, 
hay poco que decir que sea novedo- 
50 о que no pueda leerse en el lista- 
do. En la rutina de emisión, hemos 
de recoger el dato que se nos envía a 
través de un DEF FN. Para ello em- 
plearemos una técnica que ya he- 
mos usado en otras ocasiones. El 
contenido de DEFADD nos da la 
dirección donde se almacena el ar- 
gumento del DEF FN que se está 
procesando —el que nos interesa 
evidentemente—. A partir de esta di- 
rección (en el área de variables), re- 
cogemos el dato de forma simple ya 
que el número se almacena con for- 
mato de entero. 

Por otro lado, recomendamos a 
los interesados en programación en- 
samblador que examinen con deta- 
lle los bucles de las rutinas de entra- 


da y salida. Seguramente les será de 
utilidad. 

En la rutina de recepción se pue- 
den detectar errores, producidos ge- 
neralmente por desajuste de las ve- 
locidades de transmisión. El error 
tiene lugar si el bit de arranque tu- 
viera una longitud menor de la espe- 
rada. Esto significaría que se están 
transmitiendo datos a más veloci- 
dad de la esperada. 

Acaso alguien se halla preguntan- 
do por la razón de ubicar este pro- 
grama al final de la RAM. Igualmen- 
te, los usuarios de Spectrum 16K ha- 
brán exclamado: «Maldita sea mi 
suerte». Es necesario hacerlo ya 
que, como muchos sabrán, el acceso 
alos 16 primeros kilobytes de RAM 
sufre interrupciones por parte de la 
ULA, y esto puede hacer inservibles 
los esfuerzos por conseguir una 
temporización exacta. 


Descripción del Hardware 


El interface que presentamos ha 
sido realizado siguiendo la más pura 
filosofía Sinclair, intentando conse- 
guir las máximas prestaciones man- 
teniendo costes al mínimo. 

Trataremos de ser breves en la 
descripción del hardware. 

El interface está direccionado en 
el puerto de entrada-salida BFh 
(1011 1111). Cuando leemos algún 
dato de este puerto —por ejemplo, 
mediante la instrucción IN A,( )-, 
se activan los buffer triestado de ІС2 
por efecto de IC1b. El resultado es 
que el 7-80 lee en sus dos bits me- 
nos significativos el estado de las 
líneas TXD y DTR. Los transistores 


invierten los niveles, pero como el 
estado bajo corresponde a un uno, y 
al alto al cero, los datos leidos son 
los adecuados. 

Si accedemos al puerto mencio- 
nado en una operación de escritura 
(OUT ( ),<reg>), la salida de la 
puerta ICla se pone en alto y los da- 
tos presentes en el bus se cargan en 
los biestables IC3. Se ha previsto 
que al encenderse el aparato, auto- 
máticamente las salidas se pongan a 
cero, pasando de este modo al esta- 
do inactivo. 

Para conseguir tensiones negati- 
vas hemos usado dos típicas células 
diodo-condensador, en lugar de las 
tradicionales bobinas o transforma- 
dores, de difícil obtención o fabrica- 
ción. Dado que presentan una im- 
pedancia de salida relativamente al- 
ta, ha sido necesario cargarlas con 
una corriente aproximadamente 
constante. 

De aquí el valor inusualmente ba- 
jo de la resistencia de colector de T3 
у Т4. 

Las resistencias R17 у R18 prote- 
gen las salidas frente a cortocircui- 
tos accidentales. La protección in- 
condicional de las salidas sólo pue- 
de garantizarse haciendo uso de 
transistores de más potencia para 
Т2, T3, Т5 y Т6, tales como el BD 
139 y BD 140. No recomendamos la 
opción, a cambio de que se preste 
un mínimo de atención al realizar 
las conexiones. 

Aunque se ha incluído tanto en el 
esquema como en el circuito impre- 
so, generalmente la resistencia en- 
tre DSR y masa no se conectará. 
Realmente, es muy poco útil y disi- 
pa gran cantidad de calor. 


almente) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


DATA 243,221,42,11,92,221,86,4 
DATA 14,191,237,120,230,1,40,11 
DATA 62,127,219,254,31,54,243 
DATA 6,255,251,201,6,9,122,183 
DATA 22,31,203,195,203,19,237,89 
DATA 205,117,254,16,244,22,3,237 
DATA 81,205,117,254,205,117,254,72 
DATA 251,201,243,14,191,6,1,237 
DATA 65,237,120,230,2,40,15,62 
DATA 127,219,254,31,55,243,6,3 
DATA 237,45,5, 255, 251, 201, 205, 143 
DATA 254, 237, 120, 230, 2, 32, 239, 6 
DATA 128,205, 117, 254, 237, 120, 31, 31 
DATA 203,24, 0, 48, 244, 22, 3, 237 
DATA 81,72,6,0, 251; 201, 253, 102 
DATA 71,46,6, 0,0, 0,45, 194, 122 
DATA 254, 37,0, 32, 243, 0,46; 5 

DATA 45, 32,253,0,0,35, 201, 253 
DATA 102,71,46,3,0,0,45,194 

DATA 148, 254,37,0,32,244,0,38 
DATA 2,37,0,32,252,201 


REM 

sum=0 

FOR i=65024 TO 65189 
READ a 

sum=sumta 

POKE i,a 

NEXT i 


IF sum=19057 THEN STOP 

PRINT "Error en el DATA. Repaselo” 

REM 

REM Ejemplo 

REM 

DEF FN E(a)=USR 65024 

DEF FN R()=USR 65081 

INPUT "Velocidad de transmision: "3vt 

POKE 23681, 1NT(19200/vt-0.5) 

REM Envio de un caracter 

LET at="A" 

LET b=FN E(CODE a$) 

IF b>255 THEN PRINT "ERROR de transmision": STOP 
PRINT "Caracter enviado” 

REM Recepcion de un caracter 

LET a=FN r() 

IF a>255 THEN PRINT "ERROR: velocidad desajustada": STOP 
PRINT "Valor recibido:";ja; 

IF a>32 THEN PRINT "(";CHR$ а; ")"; 

PRINT 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
9012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 


RS232 


EMIRUT 
i 


3 
DTWT 


RECRUT 


WTDT 


эне 0020 IRC, WTDT 
34% RUTINA DE EMISION ж 0071 
ЗЗЗВВВВАНАНАНАВНАНВАВАНАНАЮ 0072 ERROR LD 8,03 
0073 OUT (C),ByCTS y RXD а о 
3 (С) Luis Miguel BRUGAROLAS 0074 LD B,OFFH;Indiícamos 
0075 4 error. 
0076 EI 
EQU 191 0077 RET 
0078 
ORG OFEOOH 0079 RD CALL DEL.5;Esperamos 
0080 ; medio periodo. 
DI 0081 ІМ A, (С) 
LD ІХ, (SCOBH) 0082 AND 02; TXD 
LD D,(1X+04);Cogemos 0083 JR NZ,ERROR;!'Hay un 
ORKO a өне. оова ; cero en la línea! 
x 3 0085 LD В, 100000008 
n See N ор 0086 GETLP CALL DELAY 
del puerto 0087 IN A, (с) 
ІМ А, (C)$Lee puerto ' 
AND 01; DIR 988 Аа 
IR 2.ЕМІТ 0089 RRA СЕ: bit recibido 
0090 RR BjPasa а b7 de В 
% 0091 МОР }На‹ tiempo рага 
a PURAN a r n валов 0092 35 compatibilizar con 
RRA ТЕЙ 0093 ; DELAY 
0094 JIR NC,GETLP 
JIR C,DTWT 0095 
0096 LD р,оз; RXD y CTS а 
LD B,OFFH; Indicamos 0097 бит AS са 
ЕІ з condicion de no 0098 LD C,B 
RET % ejecutado con 0099 LD В,00 
byte alto a cero. 0100 EI 
LD B,O7jNum de bucles 0101 RET ВС: dato recibido 
LD A,D}Dato a enviar 0102 
ORS ARCE ТЕО 0103 IRMA 
RLA 0104 3%% RUTINAS DE RETARDO жж 
RRA OLOR 
SET 0,E5CTS en bajo 010% 
RL EjEl bit menos signi 010? 
ficativo de E es el dato 0108 DELAY LD Н, (1Y+71) 
a enviar. 0109 DELLP2 LD 1,4 
OUT (C)»,EjLo enviamos 0110 DELLP1 DEFB 0,0,0 
con CTS en bajo. 0111 DEC L 
CALL DELAY 0112 ЈР NZ,DELLP1 
DINZ EMTLP 0113 DEC H 
0114 МОР 
ір 01,3 0115 JR М2, DELLP2 
OUT (C),D 0116 МОР 
CALL DELAY 0117 
CALL DELAY 0118 Са 1840 
LD C,Bj В = 00 0119 DELLP3 DEC L 
EI 0120 JR  NZ,DELLP3 
RET ¡Vuelve con BC=00 0121 МОР 
0122 МОР 
JBI IEE 0123 INC HL 
ЭНЕ RUTINA DE RECEPCION ж 0124 RET 
RARE RED 0125 
0126 DEL.S LD Н, (1ү+71) 
DI 0127 DEL.52 LD 1,3 
LD C,R5232 0128 DEL.S51 DEFB 0,0 
LD В,01;СТ5 en alto, 0129 DEC і 
RXD en bajo. 0130 ЈР NZ,DEL.51 
OUT (C),BjEstamos prepar 0131 DEC Н 
0132 NOP 
ІМ А, (С) 0133 JR NZ,DEL.52 
AND 02; TXD 0134 NOP 
JR Z,RD¡Se recibe bit 0135 LD Н;2 
de comienzo. 0136 DEL DEC Н 
LD A,7FH 0137 МОР 
ІМ A, (OFEH) 0138 JR NZ,DEL 
RRA RET 


0139 


RESISTENCIAS (1/4 W, 5%): 
R1,2=2K 


R12, 13=330 Ohm 1/2 W 
R14=330 Ohm IW 

R15, 16= 15K 

R17, 18, 19, 20 =47 Ohm 
R21,22=1K 

R23, 24, 25 = 10K 


TRANSISTORES: 

ТІ = ВС547 (ВС548,9) 

Т2 = ВС557 (BC558,9) 
SCI598 


SCI49B 


CONDENSADORES 
Cl=4,7nF 

C2 = 100 nF 

C3, 4 = 470 pF 16V 
С5-470 uF 25У 

C6, 7= 100 nF 


DIODOS: 
D1, 2, 3,4, 5 = 1N4148 
D6, 7 = Zener 7,5V 1/4W > 


CIRCUITOS INTEGRADOS: 


ІСІ = 74] 
1С2 
1C3 = 741.574 
1С4 = 555 


JUEGOS 


COBRA'S 
ARC 


DINAMIC 
SPECTRUM 48 K 


Los sacerdotes de una cultura 
milenaria vivian plácidamente 

en un reino lejano, dedicados рог 
entero a la veneración del dios 
Cobra. En su honor construyeron 
un templo inmenso en el que 
durante siglos fueron 
depositando tesoros, joyas, oro... 
Asustados por las profecías del 
adivino Werdhal, que vaticinaba 
un maremoto que asolaría sus 
tierras, construyeron alrededor 
del tesoro un inmenso barco, tan 
grande como una pirámide. Un 
inmenso barco que quedo 
perdido entre las gigantescas 
olas cuando la profecía se 
cumplió; lejos, muy lejos, nadie 
sabe dónde. 

Los aficionados a los juegos de 
aventura «genuinos» estamos de 
enhorabuena. No es cosa 
corriente el que se produzcan 
este tipo de juegos por y para 
hispanoparlantes, y la verdad es 
que ya estábamos hartos de 
andar de aquí para allá con el 
diccionario intentando 
acoplarnos al molesto «argot 
anglosajón» que suelen utilizar. 
Una vez más ha sido Dinamic 
quien ha roto el muro que parecía 
impedir a las casas españolas el 
sacar a la luz juegos de este tipo. 
Pero no por ser una excepción va 
a librarse este juego de la 
implacable crítica que es común 
en estas páginas, y ya va siendo 
hora de que nos internemos en el 
juego para ver qué puede tener 
de positivo y qué de menos 
positivo. 

Junto a la buena presentación y 
cuidado por el detalle (algo, por 
otra parte, difícilmente separable 
del nombre de Dinamic), debe 
resaltarse el uso que se hace de 


un menú de iconos como forma 
de dirigir al personaje en lugar 
del clásico diálogo, más 
complejo, pero seguramente 
preferido portodo aventurero 
que se precie. De todas formas 
no deja de ser algo bastante «al 
día» que es agradecible como 
forma de experimentar nuevas 
vias en este mercado. Además 
cada mensaje de los que nos da 
el ordenador es acompañado por 
su correspondiente frase (sí, 
habla, pero de forma bastante 
«gangosa» y a un nivel bajísimo). 


е, SUN, ESTO. 
No veo. nada en especial. 


Cuando nos adentramos algo en 
el juego nos encontramos con 
que deja bastante que desear a 
quien esté acostumbrado a los 
grandes juegos de aventura 
ingleses como son el Hobbit o 
tantos otros. La flexibilidad de 
movimientos, personajes y 
diálogos tan patente en estos no 
se encuentra fácilmente cuando 
tenemos que limitarnos a un 
pequeño juego de iconos y 
seguir un flujo demasiado rígido 
para conseguir permanecer vivos 
algunos minutos. 


FRIDAY 


THE 13TH 


DOMARK 


SPECTRUM 48 K 


Basado en la conocida pelicula 
de la Paramount, Viernes 13, es 
este un juego que se ha dado a 
conocer de tal forma por la 
estudiada campaña de marketing 
que le ha precedido, que hoy 
hablan de él incluso quienes 
jamás han llegado a probarlo. 
Comienza a ser esto algo normal, 
derivado del increíble 
crecimiento del mercado en los 
últimos tiempos y su gran 
dinamismo. Un juego hoy sólo 
está en cartel durante dos o tres 
meses, y en ese tiempo no da 
tiempo a que corra la voz de la 
crítica popular como en los 
primeros tiempos; aquellos 
tiempos heroicos en los que sólo 
nos decidiamos a gastar nuestro 
dinero en un juego cuando era 
de dominio público que éste era 
una obra de arte. Hoy las cosas 


han cambiado, los intereses 
económicos son muy fuertes y no 
son ya programadores los que 
controlan las empresas de 
software, sino especialistas en 
publicidad y psicología de 
masas. 

Pero hay que recordar que bajo 
cada título hay un programa para 
nuestro ordenador, un programa 
que es lo que va (o по) a 
hacernos disfrutar y lo que se 
supone que deberíamos estar 


comentando en esta sección. 

Un tranquilo día de campo en el 
lago de cristal va a ser turbado 
cuando Jason, un zombie en toda 
regla, comienza a atacar a tus 
amigos y compañeros de 
acampada. Deberás buscarlo 
entre ellos y luchar con él para 
vencerle. Recuerda que sólo hay 
un lugar donde Jason no se 
atreve a entrar; alli donde se 
encuentre la cruz podrá ser el 
santuario donde se refugien tus 
amigos. Valor y adelante. 

Como podemos ver, la trama 
inicial (por otra parte 
condicionada por la película) es 
bastante clásica y no aporta 
apenas nada realmente 
interesante, pero lo más 
significativo es que tampoco 
descubramos nada innovador 
cuando nos fijamos en la parte 
técnica del asunto. Unos sprites y 
gráficos en general bastante 
«sosos», dos dimensiones, un 
mapa más bien pequeño,... en fin, 
que pasó por nuestros ojos sin 
llamarnos la atención en 
absoluto. Tampoco es que tenga 
grandes defectos ni faltas graves, 
pero hoy en día es necesario algo 
más que un carecer de defectos 
para triunfar en un mercado tan 
saturado de títulos. 


JUEGOS 


y «se pega a los dedos» con cara, al viejo estilo) permite a los 
facilidad. En presentación se programadores derrochar más 
cumple a la perfección, memoria y trabajar mas a gusto, 
haciéndolo un juego muy aunque, como parte negativa, el 
GAM ES completo dentro del ámbito que jugador perdera bastante tiempo 


le corresponde. El estar dividido con las tediosas cargas del 
en dos partes (tres pruebas por cassette. 


EPYX 
SPECTRUM 48 K 


Aunque parece que ha pasado 
algo la fiebre de los juegos 
deportivos que aquél «Decathlon» 
puso tan de moda, aún siguen 
vendiéndose «versiones» más o 
menos diferenciadas entre sí que 
casi permiten hablar de una 
importante subclase de juegos; 
juegos que han marcado un hito 
en la «movida» evolución de este 
interesante mercado en los 
últimos años. 
Pero es esta vez un juego que 
aporta algo nuevo a esta 
repetitiva clase. Como indica su 
propio nombre se trata de unos 
Juegos de Invierno, con sus 
pruebas características que SPEED. 4 
ponen las cosas interesantes CONTESTANT 
desde el comienzo. 
Preparémonos para competir 
sobre la nieve y el hielo en las 
más duras pruebas a las que 
puede verse sometido un curtido 
deportista invernal. 
Bobsled, salto de ski, patinaje 
artistico, patinaje estilo libre, Hot 
Dog aéreo y ski de fondo son las 
competiciones en las que 
deberemos probar nuestra 
pericia. Pruebas entretenidas y 
bien acabadas en general que 
hacen de este juego (Decathlon 
aparte) todo un «cabeza de lista» 
dentro de su gama. Típico juego 
de competición, sólo resulta 
realmente divertido cuando son 
muchos los jugadores que se 
turnan en busca del oro (admite 
hasta ocho posibles). 
En la parte técnica cabe resaltar 
unos fondos muy espectaculares 
a junto a un personaje principal 


[ITA [sur [ЗБЕ] 


demasiado sencillo pero bien 
animado. La sensación es buena 


CATALOGO DE SOFTWARE 


i РАКА ORDENADORES 
PERSONALES IBM 


TODO EL CATALOGO DE SOFTWARE 
CON MAS DE 800 FICHAS 


Catálogo « 1.* ENTREGA 3.500,— PTAS. 
(400 FICHAS + FICHERO) 
RESTO EN TRES 


ENTREGAS TRIMESTRALES 
DE 1.500,— PTAS. CADA UNA. 


PRECIO TOTAL DE LA SUSCRIPCION - 8.000,— PTAS. 

To importe lo abonaré: POR CHEQUE O CONTRAREEMBOLSO al 

CUPON DE PEDIDO І CON МІ TARJETA DE CREDITO O Ref: CATALOGO DE SOFTWARE І 
SOLICITE HOY MISMO | Cargue 8.000 ptas. a mi tarjeta American Express О Visa О Interbank І 
EL CATALOGO DIRECTAMENTE A | Numero de mi tarjeta Мй 1 
infodis, Sa ! Fecha de caducidad Firma І 
ame 1 NOMBRE І 

BRAVO MURILLO, 377 - 5.2 A 1 І 
28020 MADRID HS 1 
О EN LOS CONCESIONARIOS IBM | SUBAD, Di і 


1 PROVINCIA <j 


JUEGOS 


VECTRON 


3D 


FIREBIRD 


SPECTRUM 48 K 


Nos encontramos con un 3D de 
lo mås puro, uno de esos juegos 
en los que se sacrifica casi todo 
por conseguir una buena 
sensación de tridimensionalidad 
y perspectiva. Se trata de un 
clásico laberinto en el que sólo 
nos encontraremos con un 
sencillo punto de mira, las lineas 
que representan las paredes, y 
unos enemigos no tan 
esquemáticos como nos tienen 
acostumbrados en este tipo de 
juegos. La velocidad conseguida 
es muy grande para la relativa 
calidad de los gráficos y su 
interesante animación. 

El conducir nuestros Spectrum 


por tan extraño laberinto en 
cualquier cosa menos fácil, 
aunque con unas buenas dosis 
de concentración podemos 
conseguir cierto control de vez 
en cuando. La sensación es 
buena, y la cosa se pone aún 
más interesante cuando 
conseguimos ponernos a la cola 
de algún enemigo para 


Ht 


acribillarle con las nutridas 
rafagas del laser de abordo. 

De todas formas la velocidad de 
nuestra nave es excesiva para 
quien comienza (y también para 
el que no es tan novato), y 
desgraciadamente no puede ser 
modificada al gusto del jugador, 
que suele acabar chocando 
contra las paredes y las naves 
que circulan en sentido contrario 
alos pocos segundos. La opción 
«map», que sobreimpresiona un 
plano del laberinto y sus 
«habitantes» no sirve de mucho, 
pues la nave sigue moviéndose a 
su enorme velocidad, y no se 
puede prestar atención a las dos 
cosas. 

Dejando a un lado esos 
pequeños grandes detalles que 
lo hacen tan complicado para 
nuestras humanas mentes, hay 
que hablar de un juego bastante 
logrado técnicamente y que, ala 
vez que puede catalogarse como 
un clasico, se sale bastante de la 
forma de ser de la mayoria de los 
titulos que estan apareciendo 
últimamente. Un juego que 
rebosa acción por los cuatro 
costados y que pondrá las cosas 
difíciles a quienes se las den de 
imbatibles en programas de este 
tipo. 


І 
| 


GHOST’N 
GOBLINS 


ELITE 
SPECTRUM 48 K 


Por fin ha visto la luz la versión 
para Spectrum de este juego, tras 
haber pasado por las manos de 
millones de jugadores en las 
típicas «máquinas de 
marcianitos» de miles de bares y 
salas de recreativos. Se repite 
esa maniobra que ya nos resulta 
familiar como es lanzar versiones 
de estos juegos para todos los 
micros domésticos, justo cuando 
su nivel de atracción en ese otro 
mercado comienza a disminuir, y 
aprovechando que todavía son 
muchos los «viciosos» que darán 
cualquier cosa por tener su 
programa favorito en casa y no 
tener que soltar «cinco pavos» 
cada vez que deseen hechar una 
partida. Parece que Elite se está 
convirtiendo en una especialista 
en esto como pudo comprobarse 
no hace mucho con esos 
«bombazos» que fueron (y siguen 
siendo) Commando y Bomb Jack. 
Como todos los que tienen esa 
procedencia, se trata de un juego 
en el que prima la acción. Todo 
su atractivo reside en unos 
sprites «simpáticos» que se 
mueven muy rápida y muy 
suavemente. Un secreto que 
empieza a ser de dominio público 
y que no falla: denle al jugador un 
personaje sencillo pero con 
mucha velocidad de reacción, de 
forma que consiga «sentirse él», y 
le harán feliz. 

Nuestro protagonista deberá 
moverse a lo largo de 
cementerios, riscos y otros 
lugubres parajes en busca de la 
bella princesa que se halla presa 
de un pérfido y endemoniado 
señor feudal. Habrá de tener 
cuidado de esquivar o destruir a 
los abundantes «zombis» que 
surgen de las entrañas de la 


tierra con el objeto de acabar con 
las escasas vidas de que dispone 
nuestro héroe. Otros enemigos 
también se disputarán el acabar 
con nosotros, por lo que 
deberemos ser generosos en el 
uso de las inacabables armas de 
que disponemos. 

El acabado general del programa 
no es del todo malo, pero ha sido 
bastante recortada la version 
original para conseguir acoplarla 
al nuevo ordenador. Lo que mas 


ha cambiado ha sido la parte 
gráfica, sobre todo lo referente a 
los colores, dadas las 
limitaciones del Spectrum en este 
sentido. Esto es un fuerte revés 
para este juego y desde luego 
rompe mucho el «encanto» que 
éste tenía para ese público que lo 
puso en la cúspide en su día. 
Todo un «matar o huir para 
sobrevivir», destroza los nervios 
de cualquiera a las pocas 
partidas. De eso se trata, ¿no? 


A la hora de almacenar textos en la memoria del 
ordenador, lo mas corriente es colocar sobre cada una 
de las posiciones de la RAM un código ASCII 
exclusivamente, sin mas complicaciones. De esta 
forma, si 35 Kb corresponden a 35840 bytes, utilizando 
la misma cantidad de memoria se podran almacenar 
35840 caracteres codificados en ASCII. Pero, todo sea 
por aprovechar hasta el ultimo byte de nuestro micro, 
esta situacién puede cambiar ahorrando una tremenda 
cantidad de memoria gracias a una sencilla rutina en 


cédigo maquina. 


| juego de caracteres del SPEC- 

TRUM está formado por 96 le- 

tras, números y signos especia- 
les. Cada uno de estos caracteres es- 
tá definido por un código ASCII 
comprendido entre 32 y 127. 

Si nos fijamos en el formato bina- 
rio de esta codificación, veremos 
que el 7.° bit nunca es utilizado; el 
código más alto, 127, corresponde 
en binario a 01000000. 

De momento esto supone ya un 
cierto derroche de memoria, aun- 
queno en grandes cantidades, al es- 
tar cada dirección de la RAM com- 
puesta por 8 bits. 

Se podría hacer una rutina que 
aprovechara al máximo esos 8 bits 
(ya veremos más adelante cómo se 
hace) utilizando el juego entero de 
caracteres pero no merece la pena 
ya que sólo nos ahorraríamos un by- 
te por cada 8. Es decir, que utilizan- 
do solamente 7 bits para cada carác- 
ter, lograríamos almacenar en 35 Kb 
de memoria 40960 caracteres. De to- 
das maneras, supondría ya un aho- 
rro de 5120 bytes, pero somos muy 


«agarrados» y queremos exprimir 
nuestro paciente SPECTRUM has- 
ta límites insospechados. 


Mutilación del juego 
de caracteres 


Con nuestra manía de ahorrar, 
vamoa a ver ahora que tal nos iría 
empleando para cada carácter sola- 
mente 6 de los 8 bits que conforman 
su código. 

Lo primero que deducimos con- 
siste en que el juego de caracteres 
quedaría reducido a 64 combinacio- 
nes diferentes (entre 0 y 63 deci- 
mal). Tomemos el manual del orde- 
nador y consultemos el apéndice A 
(tabla del juego de caracteres). Si 
contamos los 64 caracteres disponi- 
bles a partir del código 32 (espacio), 
veremos que podemos disponer de 
todos los números, letras mayúscu- 
las y signos más importantes. Las 
minúsculas quedarían excluídas pe- 
ro lo que nos queda es más que sufi- 
ciente para emplearlo en un peque- 
ño procesador de textos sin grandes 


ambiciones estéticas. La imposibili- 
dad de utilizar las letras minúsculas 
se compensa por el hecho de que 
nos vamos a ahorrar un byte por cada 
4 caracteres. ¡Siguiendo con el mis- 
mo ejemplo, en 35 Kb de memoria 
podremos almacenar hasta 47786 
caracteres! Conseguiremos eludir a 
la «Hacienda» de nuestro ordena- 
dor 16946 bytes netos. 

Todo esto está muy bien, pensará 
el lector, ¿pero cómo es posible al- 
macenar 4 caracteres en tres bytes? 
Esto es lo que veremos a continua- 
ción. 


Un carácter y un tercio 
en un byte 


Si el Z-80 tuviera una configura- 
ción de 6 bits no habría ningún pro- 
blema para lo que queremos hacer 
(pero repercutiría gravemente a la 
hora de programar al ofrecer un jue- 
go de instrucciones menor). El 
asunto está en aprovechar los 8 bits 
de cada una de las localizaciones de 
memoria para que pueda caber un 
código (el cual estará formado por 6 
bits) y una parte de otro. La figura 1 
muestra cómo puede conseguirse 
este fin. De esta manera, por cada 
tres grupos de bytes en memoria, lo- 
gramos empaquetar 4 caracteres. El 
primer byte del grupo contiene un 
carácter completo más un tercio del 
siguiente. El segundo, dos tercios 
del segundo carácter y dos tercios 
del tercero, y el tercer byte un tercio 
del tercer carácter más el cuarto ca- 
rácter completo. Para entendernos 
con las explicaciones que vendrán 
seguidamente vamos a llamar a este 
grupo comprimido de caracteres 
«paquete». 


Compensión/codificación 


Habíamos quedado en que sola- 
mente utilizariamos los caracteres 
cuyos códigos están comprendidos 
entre 32 y 95. Aparentemente esto 
supone un ligero problema, ya que 


Compresion de textos 


entonces deberiamos emplear 7 bits 
para cada carácter. El problema deja 
de existir si cambiamos la codifica- 
ción. Al operar con sólo 64 caracte- 
res, podríamos muy bien asignar el 
código 0 para el primer carácter de la 
lista y 63 para el último. En la prácti- 
ca, la rutina resuelve esto restando 
32 del código ASCII antes de proce- 
der a su tratamiento. 

La rutina codificadora utiliza un 
buffer cuya dirección está contenida 
en la etiqueta START (esta direc- 
ción la puede variar el usuario «po- 
keando» en las direcciones 65002 y 
siguiente). En este buffer es donde 
se va a almacenar cada una de las pá- 
ginas de texto que queremos com- 
primir. Una vez terminada una pági- 
na de texto (que consta de 672 by- 
tes, es decir, una pantalla completa), 
se procede a su compresión. Reali- 
zada su tarea, la rutina codificará la 
página en 168 paquetes de 3 bytes 
(504 bytes) a partir de la dirección 
contenida en la etiqueta TEXTO 
(dirección 65000 y siguiente). En es- 
ta dirección, al utilizar por primera 
vez la rutina, el usuario deberá mar- 
car en formato de dos bytes la direc- 
ción de inicio del texto comprimido. 
Cada vez que se vayan codificando 


más páginas de texto, el contenido 
de START se irá incrementando en 
504. 


Rotaciones e instrucciones 
légicas 


La filosofia de la rutina se caracte- 
riza por el empleo constante de las 
instrucciones lógicas (AND y OR) y 
las rotaciones. El programa toma el 
primer byte de la dirección cocnte- 
nida en la etiqueta START, le resta 
32 a su contenido y realiza dos rota- 
ciones a la izquierda (RLCA) de tal 
forma que el formato binario del có- 
digo se sitúe en el extremo izquier- 
do del byte. Seguidamente se acce- 
de al contenido de la siguiente di- 
rección, se le resta igualmente 32 y 
se procede a una operación AND 


para poner a 0 los bits 0, 1, 2 y 3 del 
byte en cuestión (AND 00110000) 
preservando el contenido de los bits 
4 y 5. Inmediatamente se realizan 
cuatro rotaciones a la derecha (RR- 
CA) para colocarlos en el extremo 
derecho. Después de recuperar el 
anterior byte tratado que había que- 
dado a salvo en el Stack, una opera- 
ción OR hace que se mezclen en un 
mismo byte aquellos 6 bits.con los 
dos de ahora. El resto del programa 
se basa en acciones similares, hasta 
haber formado un paquete. Un bu- 
cle condicional hace que se repita la 
misma operación 168 veces (168x4 
=672 caracteres) gracias al contador 
situado en la etiqueta CONTA. Una 
vez terminado todo el proceso, la 
etiqueta TEXTO contiene ya la si- 
guiente dirección a partir de donde 
se almacenará la siguiente página 
comprimida. 


Decodificación e 
impresión 


La rutina anterior no serviría de 
nada si no se dispusiera de otra que 
decodificara los caracteres compri- 


1 REM ORLANDO ARAUJO MARTIN 
2 REM PRUEBA COMPRESOR 

3 REM 22 JUNIO 1986 
4 

5 


GO SUB 900 

9 LET START=29000 

12 LET TEXTO=30000 

19 POKE 65001, INT (TEXTO/256)2 
POKE 65000, TEXTO-(INT (TEXTO/25 
4) #256) 

20 POKE 65003,INT (START/256) = 
POKE 65002,START=(INT (START/25 
6) #256) 
400 POKE 25728,52: LET маб 
500 RANDOMIZE USR 65189 
510 RANDOMIZE USR 65008 
525 GO SUB 720 
605 LET r=PEEK 25728: LET r=r+1 
2 POKE 23728,r 
610 IF PEEK 23728=96 THEN 80 Т 
о 700 
630 LET N=N+1: GO то 500 
700 CLS : PRINT "OUE PAGINA DES 
EA CONSULTAR?": INPUT ">" sv 
710 IF NCO OR N>43 THEN 80 TO 
700 


711 60 SUB 720 
713 PAUSE O! CLS + во TO 700 
720 LET PAG=TEXTO+*(N*504): POKE 
65007, INT (PAG/256): POKE 65006 
sPAG-(INT (PAG/256) #256): RANDOM 
ІЛЕ USR 65099 
725 RETURN 
900 LET con=0: 
5187: READ а: LET соп=соп+а: 
E іза: NEXT i 

910 IF con<>23575 THEN PRINT 
FLASH 1; "ERROR EN DATAS RUTINA С 
OMPRESORA": STOP 

920 REM cargador codigos 
921 RESTORE 2000: LET con: 
R i=65189 TO 65212: READ а 
con=con+a: POKE i,a 

922 NEXT i 

925 IF con<>2361 THEN PRINT 
rror en datas cargador codigos": 
STOP 

950 RETURN 

1001 DATA 40,119,72,113,0,0,48,1 
17,1,158,0,257,07,256,255,42,254 
1255.257,91,252,285.126,214,52 
1002 DATA 7,7,245,35,126,214,32, 


FOR i=45000 то 6 
POK 


т FO 
LET 


230,48,15,15,15,15,193,176,18,19 
1126,214,32,230,15,7,7,7 

1003 DATA 7,245,35,126,214,32,23 
0,60,15,15,193,175,18,19,126,214 
152,15,15,250,192,245,55,126,214 
1004 DATA 32,193,176,18,19,35,23 
775,236,253, 11,237,67, 236,253 ,1 
21,184,52,184,257,65,252,255,201 
‚205 

1005 DATA 107,13,62,2,205,1,22,4 
2,238,253,17,168,0,126,245,230,2 
52,15,15,198,32,229,213,215,209 
1006 DATA 225,241,250,5,7,7,7,7, 
245,55,126,250,240,15,15,15,15,1 
93,176,198,32,229,213,215,209 
1007 DATA 225,126,230,15,7,7,245 
135,126,230,192,7,7,193,176,198, 
32,229,213,215,209,225,126,230,6 
3 


1008 DATA 198,32,229,213,215,209 
1225,55,27,122,187,52,181 

1009 

2000 REM datos cargador codigos 
2100 DATA 22,21,58,176,92,95,42, 
234,253, 6,32,115,35,16,252,6,32 
2110 DATA 21,122,254,0,32,244,20 
З 


¿ORLANDO ARAUJO MARTIN 
¡CODIFICADOR TEXTO 

317 de junio de 1986 

Н 


TEXTO EQU 
START EQU 
CONTA EQU 
PAG EQU 


65000 
65002 
65004 
65006 


ORG 45008 
ENT + 
LD BC, 168 
LD (CONTA),BC 
¡contador caracteres 
LD HL, (START) 
¡direccion comienzo buffer 
texto a codificar 
18 LD DE, (TEXTO) 
19 ¿carga en DE la direccion 
actualizada texto a codificar 
20 BUCLE LD А, (HL) 
SUB 22 
¡carga en А el codigo del 
primer caracter del grupo 
25 вуса 
24 вуса 
25 32 desplazamientos a la iz 
quierda del caracter 
26 PUSH AF 
27 INC HL 
28 зассево al siguiente carac 
ter del buffer 
LD A, (HL) 
SUB 32 
¡carga del caracter 
AND 700110000 
se toman los dos ultimos 
bits del caracter 
34 ARCA 
35 RRCA 
36 RRCA 
37 RRCA 
38 зу se desplazan hacia la d 
erecha ` 
39 РОР ВС 
40 ¿recuperacion del primer с 
racter 
41 oR в 
42 ¡mezcla de los 6 bits del 
primer caracter con los 
43 ¿dos primeros del segundo 
44 ір (DE),A 
45 зу se almacenan al estar у 
a codificados 
а INC DE 
47 ;acceso a la siguiente dir 
eccion del texto codificado 
48 LD A, (HL) 
49 SUB 52 
50 ¿se vuelve a tomar el segu 
ndo caracter 
51 AND 00001111 
52 ¿considerando solamente lo 
s cuatro prineros bits 
53 RLCA 
54 RLCA 
55 RLCA 


56 RLCA 
57 зрага rotarlos a la izquie 


PUSH AF 
INC HL 
ір а, (HL) 
SUB 32 
62 ¡acceso y carga al tercer 
caracter 
63 AND %00111100 
64 ¿tomando en consideracion 
los cuatro ultimos bits 
65 RRCA 
66 RRCA 
67 32 rotaciones a la derecha 
68 РОР ВС 
69 ок в 
70 ¿recuperacion de los 4 pri 
meros bits del segundo ca- 
71 ¿racter y mezcla con los 4 
ultimos del tercero 
72 LD (DE>,A 
73 фу almacenamiento del conj 
unto 
74 INC DE 
75 ір A, (HL) 
76 SUB 32 
77 jacceso de nuevo al tercer 
caracter 
78 RRCA 
79 RRCA 
80 ;2 rotaciones а la derecha 
del caracter 
81 AND 211000000 
2 ;se salvan los dos primero 
s bits del caracter 
83 PUSH AF 
ва INC HL 
85 LD a, (HL) 
86 SUB 22 
87 ¿acceso al cuarto caracter 
вв РОР BC 
89 OR в 
90 зу mezcla con los dos prim 
eros bits del anterior 
91 LD (DE),A 
92 INC DE 
93 almacenamiento del tercer 
codigo del grupo 
INC HL 
LD BC, (CONTA) 
DEC ВС 
LD <CONTA) ,BC 
ір a,c 
cP В 
JR NZ,BUCLE 
LD (TEXTO) ,DE 
RET 


¿RUTINA DECODIFICADORA 


CALL ворев 
¿borra pantalla 

LD A,2 

CALL #1601 
sabre canal 2 

LD HL, (PAG) 
¡pagina elegida 


113 


Lo 


DE, 168 


114 ¿contador caracteres 


115 LOOP 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
135 
134 
135 
136 
137 
138 
139 
140 
181 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


LD 
PUSH 
AND: 
RRCA 
RRCA 
ADD 
PUSH 
PUSH 
RST 
POP 
POP 
POP 
AND 
RLCA 
RLCA 
RLCA 
RLCA 
PUSH 
INC 
LD 
AND 
RRCA 
RRCA 
RRCA 


A, (HL) 
AF 
%11111100 


A,32 

HL 

DE 

#10 

DE 

HL 

AF 
200000011 


AF 

HL 

а, (HL) 
711110000 


BC 

B 

A,32 

HL 

DE 

#10 

DE 

HL 

A, (HL) 
700001111 


A, (HL) 
%11000000 


Compresion de textos 


1% BYTE! 


ERES 
© BITS) 


DE 


midos y los imprimiera. Gracias a 
ella podremos acceder a una página 
cualquiera del texto y ver su conte- 
nido. 

Como cualquier rutina de impre- 
sión, ésta comienza llamando a la 
rutina del sistema operativo 
OD6BH que limpia la pantalla y se 
abre seguidamente el canal 2 de im- 
presión. En el registro HL se alma- 
cena la página que deseamos con- 
sultar, cuyo dato está contenido en 
la etiqueta declarada al comienzo 
del programa; PAG. En esta direc- 
ción (65006), antes de llamar a la ru- 
tina decodificadora, el usuario debe 
almacenar en formato de dos bytes 
la dirección de inicio de la página a 
consultar. Por supuesto, para hacer 
las cosas más fáciles, en el programa 
BASIC que controle la rutina, sólo 
deberá introducirse el número de pá- 
gina mediante un INPUT (siendo 0 la 
primera página). Un sencillo cálculo 
en una línea BASIC se encargará 
de calcular la dirección a la que co- 
rresponde la página según el dato 
introducido y POKEará los datos re- 
sultantes a partir de la etiqueta 
PAG. 

En DE colocamos el contador 
que inicializamos a 168 (168x3=504 
bytes a decodificar). Se toma el pri- 
mer byte de la página eliminándose 
el contenido de los dos primeros bits 
(AND 11111100). Se rota el byte dos 
posiciones a la derecha y se le suma 


BYTE 


VETAMIENTO СЕ CURT 
сом FORMATO 
EN TRES BYTES. 


32 a su contenido. De esta manera 
conseguimos obtener el código AS- 
СІІ original. Ahora ya no tenemos 
mas que imprimirlo aprovechando 
la llamada a la ROM RST 10H. ¡Pero 
cuidado! Siempre, antes de llamar 


SHIT 
Я 


una rutina ROM, debemos preser- 
var el contenido importante de los 
registros que estemos utilizando en 
la rutina. En este caso, debemos de 
poner a salvo HL (puntero del texto 
comprimido) y DE (contador del 
bucle) y llamar inmediatamente a la 
rutina de impresión que imprimirá 
en la pantalla el código contenido 
en A. Entonces ya podemos volver a 
recuperarlos del Stack mediante 
POP. El resto del programa es seme- 
jante al anterior por lo cual no nos 
alargaremos demasiado. Al igual 
que aquél, se hace uso de las ins- 
trucciones de rotación y las opera- 
ciones lógicas. Una vez realizada 
una pasada dentro del bucle, se ha- 
brán imprimido 4 caracteres que an- 
teriormente estaban firmemente 
compactados en un paquete de tres 
bytes. 


| 


= 


Las presentes rutinas en 
código máquina han sido 
diseñadas para poder 
rellenar (Fill) cualquier 
figura con posibilidad de 
utilizar entramados 
definidos por nosotros. 
Ocupan un total de 415 
bytes, no son reubicables 
y han sido situadas juntas 
a partir de la dirección 
64900 (para dejar sitio a 
los UDGs). Estas rutinas 
son la coloreadora 
propiamente dicha y la 
rutina entramadora. 


ILUSTRADO 


АНЫМ. 


ғ 


ZONA А COLOREAR 


NUEVA ZONA A COLOREAR 


LIMITE DERECHO (TRAS 2 PUNTOS ALZADOS) 


PTO. DE COMIENZO 


FIG. 2 
PUNTOS POR LOS QUE VA PASANDO 


LA RUTINA QUE RELLENA LA LINEA 


La rutina coloreadora se utiliza 
definiendo una función de la forma: 


DEF EN n(a,b,c)=USR 64900 
y llamándola con una orden como: 
LET a=FN n(X, Y се) 


siendo л el nombre de la función, Х 
e Y las coordenadas de un punto 
cualquiera en el interior de la figura 
a colorear, y cc una condición. Si сс 
vale І, entonces además de colorear 
se crea una tabla especial e impres- 
cindible si se desea luego utilizar al- 
gún tipo de entramado. Si сс vale 0 
no se crea esta tabla ahorrando me- 
moria (la tabla ocupa una gran can- 
tidad de memoria) y permitiendo al 
uso de la rutina en programas largos 
o bien en máquinas de 16K —con el 
previo ajuste de la rutina y reubica- 
ción de la misma. 

Esta tabla se crea desde el co- 
mienzo de la rutina (dirección 
64900) hacia abajo. En caso de que 
la tabla bajara más allá del RAM- 


La tabla utilizada para el 
entramado ocupa mucha 
memoria, por lo que en 
Spectrum 16 K debe 
suprimirse. 


TOP se provocaría el error “out of 
memory”. Por tanto debemos pre- 
viamente introducir una orden 
CLEAR nn, dejando el espacio ne- 
cesario a la tabla. En caso de usar la 
opción de no creación de la tabla 
(cc=0) no debemos preocuparnos 
de esto último. 

Además, la rutina devuelve al 
BASIC en el registro doble BC el 
número de puntos que han. sido 
PLOTeados. Así, si ejecutamos la 
orden: 


LET a=FN n(X, Y се) 


еп la variable a tendremos el núme- 


ro de los puntos que «caben» dentro 
de la figura. 

Esto puede ser útil —a parte de la 
mera curiosidad— para calcular, por 
ejemplo, la superficie de cualquier 
«cosa» por complicada que sea con 
sólo dibujarla en la pantalla y colo- 
rearla; en ese caso la superficie ven- 
dría dada en «pixels cuadrados» que 
en función de la escala se podrían 
pasar a las unidades que fueran ne- 
cesarias. 

Otra curiosidad es que el rellena- 
do de una figura puede ser parado 
en cualquier momento pulsando la 
tecla «SPACE». Esta parada será 
siempre tras el relleno de una línea 
completa de la figura. El resto de las 
funciones, como la posibilidad de 
uso de entramados o la cuenta del 
número de puntos rellenados, fun- 
cionarán igual que si la figura se ter- 
minara alli. 

La rutina entramadora se utiliza 
también definiendo una función de 
la forma: 


РТО. А RELLENAR (59, 60) 


FILLU STIRADO 


(4629) SOQVWFULNA яа NIDIHO 


DEF ЕМ n(a)=USR 64914 


y llamandola con una orden como: 
LET a=FN n(dir)) 


siendo dir la dirección donde se ha- 
lla situado el entramado dentro de la 
memoria. El entramado es un gráfi- 
co de 16 x 16 pixels que por tanto 
ocupa un total de 32 bytes. Este grá- 
fico se almacena en memoria por fi- 
las de 16 bits, siendo la primera fila 
la que se define de izquierda a dere- 
cha por los dos primeros bytes; los 
dos siguientes definirían la segun- 
da, los dos siguientes la tercera y así 
sucesivamente. 

Como mucha gente no está habi- 
tuada a esta forma de almacenar los 
gráficos, se dispone también de la 
posibilidad de utilizar los UDGs A, 
B, C y D para definir el entramado 
En este caso la figura estaría forma- 
da por estos cuatro gráficos siendo 
la mitad superior la formada por los 
gráficos A y B y la mitad inferior la 
formada por los gráficos С y Р. Si se 


EJEMPLO DE ENTRAMADO 


El entramado puede 
definirse usando los UDG A, 
B, C y D. Si se elige esta 
opción, la rutina lo adapta 
al otro formato. 


elige esta opción, la dirección que se 
debe indicar como inicio del gráfico 
es la 0, encargándose la rutina de 
adaptar el gráfico al otro formato de- 
positándolo en la memoria interme- 
dia de la impresora. Así, si se desea 
adaptar un gráfico del formato 
UDGs al otro bastará con entramar 
una figura pequeña o bien introdu- 
cir el siguiente POKE: 


POKE 64899,255 


de esta forma no se entramará nada, 
realizándose sólo el proceso de 
adaptar el gráfico. Una vez hecho 
esto (con el parámetro dir=0) basta- 
rá con trasladar esos 32 bytes que 
forman la figura a donde convenga. 


A diferencia de la otra rutina, la 
entramadora no retorna en BC el 
número de puntos, por lo que el va- 
lor de la función no tendrá ningún 
sentido. Añadir además que se pue- 
de cambiar el entramado cuantas 
veces se quiera mientras no se des- 
truya la tabla coloreando una nueva 
figura con la opción cc=1. 


Funcionamiento 


El funcionamiento de las rutinas 
es algo complejo por lo que aconse- 
jo, alos que quieran «atreverse» con 
el listado ensamblador, que primero 
lean estas lineas. 

A) El funcionamiento de la rutina 
coloreadora es simple en teoría, 
aunque se complica un tanto en el 
listado ensamblador. 

Para colorear la figura se utiliza 
un STACK que sirve para guardar 
las coordenadas de las zonas O 
líneas que se dejan para «más ade- 


4 


АД, LU SIRA DO 


TABLA DE POKES: 
(Para ahorrar entramados) 


Figura Normal 
POKE 65220,31 
Figura Horizontal 
POKE 65220,23 
Figura Normal POKE 
65263,122 
POKE 65264,144 
Espejo Vertical 
POKE 65263,120 
POKE 65264,146 


lante» mientras se colorea otra zona 
distinta. Como STACK se usa el del 
Z-80 con órdenes tan simples como 
PUSH o POP. 

Para seguirel proceso hay que te- 

ner presente las figuras. 
1. Se comprueba si el punto en las 
coordenadas actuales está alzado 
(POINT (x,y)=1). En caso afirmati- 
vo la zona en cuestión no tendría 
nada que colorear, por lo que se pa- 
saria a la siguiente zona. 

2. Se busca el límite derecho de la 
línea a colorear (ver fig. 1). 

3.A continuación se introduce en 
la tabla (si la condición c vale 1) la 
coordenada Y y la coordenada X fi- 
nal (del límite derecho). 

Esta tabla está formada por gru- 
pos de 3 bytes, siendo el primero la 
coordenada Y yel segundo y tercero 
las coordenadas Xfinal Y Xinicial res- 
pectivamente. Caso de que la coor- 
denada Y sea 255 (imposible) se to- 
ma como final de la tabla por la ruti- 
na entramadora, siendo esta la se- 
ñal. 

Esta tabla se completa introdu- 
ciendo el tercer byte cuando se ter- 
mina el rellenado de una línea. 


4. A continuación se inicia el re- 
llenado de la linea (de derecha a iz- 
quierda). Primero se PLOTea en las 
coordenadas actuales y luego se 
comprueban los puntos inmediata- 
mente inferior y superior. Si no hay 
nada (POINT (x,y)=0), entonces se 
almacenan en el STACK las coorde- 
nadas de ese punto (vacío) y se acti- 
va o alza un banderiz. Este banderin 
evita que el STACK se llene de 
coordenadas innecesarias para el 
completo rellenado de la figura. Pre- 
viamente a la introducción de las 
coordenadas en el STACK se com- 
prueba este banderín y si estáalzado 
no se realiza la introducción. 

En caso de que el punto esté alza- 
do, entonces se baja dicho banderin 
porque esto quiere decir que puede 
venir a continuación una nueva zo- 


La rutina entramadora se 
limita a leer la tabla creada 
por la otra rutina y poner o 
quitar los puntos 
correspondientes. 
OS AS 
na (ver fig. 2). Esta comprobación se 
realiza tanto en la zona superior co- 
mo en la inferior, pues puede suce- 
der en ambas lo mismo. 

Cuando se termina de rellenar 
una línea repitiendo el mismo pro- 
ceso y decrementando la coordena- 


da correspondiente, se pasa a una 
nueva zona. (Una línea se completa 


al encontrar un punto alzado o bien 


el borde de la pantalla). 

Para pasar a una nueva zona O 
línea, se ponen a cero los banderi- 
nes y se sacan del STACK las nue- 
vas coordenadas. Hecho esto se 
comprueba si estas coordenadas son 
la señal previamente introducida 
antes de comenzar a rellenar la figu- 
ra. Si lo son, se retorna al BASIC de- 


volviendo el número de puntos 


PLOTeados; si no, se vuelve a ini- 
ciar el proceso de rellenado de una 
línea. Fíjese el lector que cuando se 
comprueba durante el rellenado de 
una línea si los puntos superior e in- 
ferior están a 0, si es necesario se in- 
troducen las coordenadas de dicho 
punto en el STACK; por lo que al 


QLHARD 
TODO PARA SU QL 
RAMDISC 
AMPLIACIONES DE MEMORIA 
UNIDADES DE DISCO 
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A UN PRECIO 
OFERTA LIMITADA 


Y EXCLUSIVA PARA 
NUESTROS LECTORES 


ESPECIAL 


FILLU SIRA ЮО 


sacar las nuevas coordenadas del 
STACK se continúa en la línea que 
previamente había sido detectada 
como vacía y n es necesario que la 
rutina se encargue de subir o bajar 
una línea para seguir rellenando. 
Como curiosidad, puede decir 
que si la rutina colorea primero de 
arriba a abajo, es porque en el 
STACK se introducen primero las 
coordenadas de los «huecos» que se 
detectan debajo, y luego los de arri- 
ba. Por ello, como el STACK es de 
tipo LIFO (last in, first out), las ulti- 
mas coordenadas son las superiores. 
В) ЕІ funcionamiento de la rutina 
entramadora se limita a leer la tabla 
creada por la otra rutina y poner о 
quitar los puntos que corresponda, 
siendo esto lo más complicado, por 
lo que paso a explicar cómo se sabe 


si se debe poner o quitar un punto. 

Para empezar, se toma como ori- 
gen de entramados las coordenadas 
del punto desde el que se comenzó a 
colorear la figura. Las fórmulas que 
se usan para saber qué punto se de- 
be comprobar en el entramado para 
luego ser copiado en pantalla son las 
siguientes: 


X = (CXorigen - CX) MOD 16 
Y = (CYorigen — CY) MOD 16 


СХонвеп-СХ о CYorigen—CY pue- 
den ser negativos, pero como en có- 
digo máquina los números negati- 
vos se expresan como complemento 
a dos, ni se tiene en cuenta. Veamos 
un ejemplo: 

Tenemos un entramado cual- 
quiera (fig. 3) y queremos saber qué 
le corresponde a un cierto punto 


o 
2 
Aproveche la oportunidad de mantener ^и „° 
como nuevo su Spectrum Plus ДОУ 
соп esta funda, у beneficiese er y tot а” 
de un 30% de descuento ООУ ў 
sobre su precio normal. Or A e NO O р” 
SA а Se 
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10 
20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 


FILL 


FILL2 


F_BUC1 


F_BUC2 
F_BUCS 


F_BUC4 


F_BUCS 


ORG 


JR 


64000 
IX, (23651) 
B, (1X+3) 
с, (1X+2) 
BC 

A,2 
#1601 
IX,FLAGS 
A,1 
CINCY) ,A 
CINCX) ,а 
BC, 45367 
(STACK) ,BC 
BC, 65535 
PUSH 

BC 

(CC) ,BC 
O, (IX+0) 
PLOT 

1, (1X+0) 
A, CINCY) 
a,c 

C,A 
POINT 
7,F_PTO1 
O, (1X+0) 
Z,F_PTO2 
а, (INCX) 
A,B 

B,A 

В 

(CC2) ,BC 
BC, (ссі) 
3, (1X+0) 
а, CINCX) 
A,B 

B,A 
POINT 
Z,F_PTOS 
з, (1X+0) 
HL, (CC2) 
A 

HL, BC 
A,H 

L 


Z,POP 
A, CINCY) 
a,c 

C,A 
F_BUC4 


510 F_PTO1 CALL PLOT 


520 
530 

540 

550 

560 

570 

эво 

590 

600 

610 

620 

630 

640 

650 

660 F_PTOZ 
670 

680 

690 

700 

710 

720 

730 F_PTOS 
740 

750 

760 

770 

780 PUSH 
790 

800 

810 

820 

830 

840 

850 

860 F_ERR 
870 

880 F_SIG3 
890 

зоо 

910 

920 

930 

940 POP 
950 

960 

970 

980 

990 

1000 

1010 

1020 


PUSH BC 
LD A, CINCX) 
ір р,а 

LD а,в 

SUB р 

LD в,а 

CALL POINT 

РОР BC 

JR М2,Ғ вис? 
BIT 1,(1Х%0) 
JR NZ,F_BUCS 
SET 1, (1X+0) 
CALL PUSH 

JR F_BUCS 


SET 0, (1X+0) 
DEC С 

LD 4,255 

LD CINCY) ,A 
LD (CC1),BC 
ір BC, (се) 

JR F_BUC2 

БІТ 3, (1X+0) 
JR NZ,F_BUCS 
SET 3, (IX+0) 
CALL PUSH 

ЈК F_BUCS 

LD HL, (STACK) 
LD DE,ZFIN 


INC DE 
PUSH HL 

AND А 

SBC HL,DE 

РОР HL 

JR NZ,F_SIG3 
RST 8 

DEFB 3 

LD (HL) ,B 
DEC HL 

LD (HL) Cc 
DEC HL 


LD (STACK) , HL 


LD HL, (STACK) 
HL 


LD C, (HL) 

INC HL 

LD B, (HL) 

LD (STACK) ¿HL 
LD A,B 

СР. 255 


JR NZ,F_SIGS 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


F_SIGS 


POINT 


P_SIG2 


P_BUCL 


PLOT 


FLAGS 
INCX 
INCY 
cc 
ссі 
сс2 
STACK 
ZFIN 


a,c 
255 
NZ,F_SIGS 


A,1 
CINCY) ,A 
BC 

A, (ІМСХ) 
D,A 

А,В 

р 

B,A 
POINT 

BC 
NZ,F_BUC1 
A, CINCX) 
D,A 

A 

D 
(INCX),A 
F_BUC1 
A,#7F 

А, (#FE) 

1 
NZ,P_SIG2 
8 

12 

BC 

#22AA 
B,A 


(АЙЛ, LUST IRADO 


ORIGEN DE ENTRAMADOS 
BAB 
DCD 
BAB 
DCD 
BAB 
BAB 
BAB 
FIG. 5 FIG. 6 
«BALDOSINES» DE ENTRAMADO 


SOQVW¥4INA Яа NIDIJO 


AB 
ср 
АВ 
с” 
АВ 
ср 
АВ 


(59, 60) si el origen de entramados 
está en (62, 57). Para ello acudimosa 
las fórmulas: 


X = (62 — 59) MOD 16 
Y = (57 - 60) MOD 16 


siendo X=3 e Y=13 (si no le da esto 
mire a ver si ha efectuado bien el 
complemento a dos para números 
negativos). Basta ahora con fijarnos 
en el estado del punto con coorde- 
nadas (3, 13) en el entramado, y sa- 
bremos que le corresponde un 1. 
(La X es la coordenada horizontal y 
la Y es la vertical). 

Esto es algo así como si conside- 
ráramos el entramado como si fuera 
un baldosín y llenáramos con esos 
baldosines la figura. El origen de en- 
tramados es el punto de partida de 
los baldosines. Este origen coincide 
con el punto medio superior del 
baldosín (fig. 5) que está debajo del 
origen. 

Si utilizáramos los UDGs A, B, C 


Dado que la rutina 
entramadora lee de la tabla 
y no la destruye, se puede 
cambiar el entramado 
cuantas veces se necesite. 


y D como entramado sin cambiar- 
los, veríamos algo абі como lo que se 
aprecia en la figura 6 respecto al ori- 
gen de entramados. 

Dado que la rutina entramadora 
lee de la tabla y no la destruye, pode- 
mos cambiar el entramado cuantas 
veces queramos hasta que se cam- 
bie la tabla para otra figura. (O se 
anule ésta con el POKE anterior- 
mente mencionado). 

Como ejemplo de lo dicho prueba 
lo siguiente: 


CIRCLE 127, 87, 85: 
LET a=FN a (127, 87, 1) 


(suponiendo que la función defini- 
da se llame a). Pruebe ahora: 


LET а-ЕМ b(dir) 


(suponiendo que la función se llame 
Б); y procure que dir tenga un valor 
dentro de la ROM. Podrá repetir es- 
ta orden cambiando dir cuantas уе- 
ces quiera. 

Pruebe ahora dir=15000. Podrá 
ver que rellena por completo, pues 
la dirección 15000 y siguientes están 
dentro de «agujero negro» de la 
ROM. 

A los programadores que usen 
muchos entramados les aconseja- 
mos que consultaran la tabla de PO- 
KES, que los guardaran directa- 
mente en memoria y que los salva- 
ran al cassette en forma de BYTES 
en lugar de crearlos en el propio pro- 
grama. 
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El mes pasado vimos cómo podía realizarse la inversión de gráficos 
definidos por el usuario en dos sentidos diferentes (horizontalmente 
y verticalmente). En el presente artículo trataremos un tema similar 
aunque algo más largo de llevar a buen término que el anterior. 
Con la rutina que vamos a desarrollar podremos orientar cualquier 
UDG en cuatro direcciones diferentes, lo cual supone un ahorro 
mayor que en el caso de la inversión. 


i el mes pasado lográbamos ob- 
Gae 2 UDGs a partir de uno, 

con la actual rutina obtendre- 
mos 4 diferentes. 

Este programa en Código Máqui- 
na permite orientar un UDG en 4 di- 
recciones distintas. El efecto conse- 
guido al llamar reiteradamente la 
rutina es una rotación del UDG, ro- 
tación que puede conseguirse a vo- 
luntad tanto de derecha a izquierda 
como de izquierda a derecha. 

Una de las muchas utilidades que 
pueden deducirse a primera vista 
podría ser la simulación del movi- 
miento rotatorio de las ruedas de un 
automóvil. En lugar de crear cuatro 
gráficos diferentes, bastaría con 
crear uno sólo y llamar a la rutina. 
Así de sencillo. De igual forma, si 
tiene pensado programar un «Co- 
mecocos», no tiene más que limitar- 
se a crear una única figura del famo- 
so «comefantasmas». Las otras tres 
orientaciones del «pac-man» las ira 
calculando la rutina por usted. 


Existen otras muchas aplicacio- 
nes destinadas a juegos que con se- 
guridad irá descubriendo según sus 
necesidades de programación. 


La rutina utiliza cuatro 
variables diferentes que 
se almacenan en otras 


tantas direcciones de 
memoria 


Ideas básicas de la 
rotación 


De la misma forma que comenza- 
mos en el anterior artículo, antes de 
nada debemos imaginarnos el pro- 
ceso dejando a un lado el ordenador 
y los fríos mnemónicos Assembler, 
ya que si по se tienen las ideas bien 


claras, llegar a la solución del pro- 
blema, programando directamente, 
puede ser un verdadero rompecabe- 
Zas. 

De inmediato nos encontramos 
con un problema que ofrece dos si- 
tuaciones diferentes. Por un lado, 
podemos rotar el UDG de derecha a 
izquierda, y por el otro, de izquierda 
a derecha. Estudiemos de momento 
la primera situación. 

Imaginemos un cuadrado dibuja- 
do en un papel dividido en 8x8 celdi- 
llas. Cada una de estas celdillas co- 
rresponden a los bitsindividuales de 
cada una de las filas o bytes del 
UDG. Numeramos secuencialmen- 
te cada una de las celdas del 1 al 64. 
Seguidamente, damos un cuarto de 
vuelta al papel (de derecha a iz- 
quierda). El siguiente paso consiste 
en estudiar los cambios que han su- 
frido los bits del UDG para obtener 
una regla común que será la que nos 
permitirá llegar al futuro algoritmo 
de rotación. 
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Esto es lo que descubrimos. El úl- 
timo bit de la primera fila ocupa la 
1. posición de la primera fila; el últi- 
mo bit de la segunda fila ocupa el se- 
gundo lugar de la primera fila; el úl- 
timo de la tercera, el tercero de la 
primera, y así sucesivamente hasta 
haber completado la primera fila. 
Entonces, los siguientes bits que se 
trasladan son los penúltimos de ca- 
da una de las 8 filas que se van des- 


y 


plazando a los 8 lugares correspon- 
dientes de la segunda fila. El proce- 
so se repite hasta haber completado 
la totalidad de las filas, 

Enel caso de que la rotación fuera 
de izquierda a derecha, el proceso 
sería inverso; el 1.° bit dela 8.* fila se 
traslada al lugar que ocupaba el 1.° 
de la 1.* fila; el último de la 7.* fila va 
al lugar del segundo puesto de la pri- 
mera, etc. 

Esta es la base teórica de nuestra 
rutina. Teniendo presente estas 
ideas, ya podemos pasar a realizar el 
programa fuente sin grandes dificul- 
tades. 


El programa fuente 


La rutina hace uso de cuatro va- 
riables almacenadas a partir de otras 
tantas direcciones de memoria. En 
la dirección 59996, la rutina almace- 
na un número que según sea 0 6 1, 
accedemos a la rotación derecha- 
izquierda o izquierda-derecha res- 
pectivamente. En las 59999, intro- 
ducimos el п.” de orden del UDG a 


rotar (0 a 20). La dirección 59997 y 
siguiente, la utiliza el propio progra- 
ma para almacenar el comienzo de 
la dirección de una tabla a partir de 
la cual almacenamos una copia de 
los datos del UDG. Esta última di- 
rección será utilizada por el registro 
índice IX. 

La rutina puede llamarse de dos 
formas diferentes. Si deseamos una 
rotación derecha-izquierda, habrá 
que ejecutarla a partir de la direc- 
ción 60000, almacenándose en la di- 
rección 59996 un 0 para saltar inme- 
diatamente a la etiqueta START 
donde se procede a la multiplica- 


ción del n.° del UDG que ya vimos 
en el anterior artículo. Si la ejecu- 
ción esa partir de la dirección 60007, 
se carga en la mencionada dirección 
un І y el programa sigue su curso a 
partir de START. Después de haber 
procedido a la ya comentada multi- 
plicación por 8 (operación que sirve 
para tener un acceso inmediato al 
UDG elegido), un bucle LDIR car- 
ga a partir de la tabla salva una co- 


pia del UDG para tener un mode 
lo intacto con el cual puedan efec- 
tuarse las comparaciones. Para te- 
ner acceso a estos datos, vamos a 
emplear el registro IX como punte- 
ro, соп lo cual lo cargamos соп la di- 
rección original contenido en salva 
(líneas 30 a 32). 

Seguidamente, cargamos de nue- 
vo HL con el comienzo de la direc- 
ción del UDG e iniciamos una serie 
de contadores que nos servirán para 
llevar a cabo los constantes bucles 
dentro de los cuales se desarrollan 
las comparaciones de cada uno de 
los bits. 


¿Orlando Araujo 
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60000 
$ 
A,0 
(59996) ,A 
START 
¿Rotacion derecha-izquierd 
LD A,l 
LD (59996) ,A 
¡Rotacion izquierda-derech 


START LD 
SLA 
SLA A 
SLA A 
LD E,A 

Среде 


Ay (59999) 


ір HL, (23675) 

ADD HL,DE 
¿Acceso al UDG elegido med 
multiplicacion por 8 de п. 


LD (59997) ,HL 

LD BC,8 

LD HL , (59997) 

LD DE, SALVA 

LDIR 
¡Se almacena el UDG origin 
otra direccion para proteg 


LD HL. , SALVA 
LD (23728) ¿HL 
LD IX, (23728) 
¡En IX se guarda la direcc 
ion del primer dato del 

34 ;UDG protegido 

35 LD HL, (59997) 

36 ¡Se carga en HL el comienz 
ode la direccion del UDG elegid 
o 

37 LD Е,0 

38 ¡Se inicializa a О el regi 
stro E ya que va a se el 

39 ¿que contendra cada uno de 

los bytes resultantes 

40 ¿del UDG tratado 


41 ep Seep. a 
42 ;D=contador de los bytes d 


BYTE LD B,8 
¡B=contandor de cada uno а 
bits de los bytes del UDG 
BUC LD С, (IX+0) 
¿Se carga еп С el primer b 
ytes a comparar y tratar 
48 LD A, (59996) 
49 СР о 
зо JR Z,BITD 
Бі ¡Si se ha elegido la rotac 
ion der/izq se salta a BITD 
JR BITI 
Si па, а BITI 
OTRA JR NZ,SETUP 
VEZ ІМС ІХ 
¡beceso al siguiente dato 
del UDG protegido 
DJNZ BUC 
¿Cuando B=0 se salta a BUC 
tratar otro byte 
LD CHL) ,E 
¡Se carga en la direccion 
correspondiente del UDG 
61 jel dato definitivo 
62 LD IX, (23728) 
63 ¡Se vuelve a reinicializar 
IX con la direccion 
64 ¡etiquetada SALVA 
65 


el siguiente d 


A,D 
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El primer byte a comparar (1.* fila 
del UDG) se carga en C utilizando 
IX como registro indice (linea 46) y 
seguidamente chequeamos el con- 
tenido de la dirección 59996 para Пе- 
var a cabo el tipo de rotación elegi- 
do. Para no alargarnos excesiva- 
mente, vamos a ver únicamente la 
rotación derecha-izquierda. Si se ha 
elegido esta última opción, el pro- 
grama salta a BITD. A partir de esta 
etiqueta se carga en A el contenido 
de D, que inicialmente vale 8 (cada 
vez que haya sido tratada una fila 
del UDG, se irá decrementando). 
Inmediatamente se compara el con- 
tenido de este registro con valores 
comprendidos entre 8 y 0. En este 
caso, al ser el contenido de D=8, un 
salto condicional desvía el progra- 
та а la etiqueta BITO donde se com- 


вз РЕЗ 108 БІТІ BIT 1,6. 
84 28 Z,BITS 109 JR отка 
вз GP 172 110 BIT2 BIT 2,С 

86 JR 2.ВІТ6 111 JR OTRA 
87 СР 1 112 BITS. BIT 3,0 

вв JR 7,ВІТ7 tse ае JR ОТКА 
вә BITI LD а,р 114 віта BIT 4,С 

90 СР 8 115 JR отка 
91 ӘЖ Z,B1T7 116 BITS БІТ 5,C 

92 cp 7 117 JR OTRA 
93 JR Z,BIT6 118 ВІТЬ БІТ 6,0 

94 EP 119 JR отка 
95 ӚН Z,BIT5 120 ВІТ? BIT 7,С 

96 ЄР 775 121 JR OTRA 
97 JR Z,BITA 122 SETUF LD а, (59996) 
98 СР 4 125 СР о 

99 aR 7,БІТЗ 124 JR O Z,SETUPL 
100 ce 3 125 ӚН SETUPZ 
101 JR Z,BIT2 126 SETUP1 LD A,B 
102 ЕР 2 127 СР в 

103 SR 2,вІТі. 128 JR 7,6ЕТ7 
104 СР “1 129 ee oF 
105 JR Z,BITO 150 JR Z,SET6 
106 BITO ВІТ 0,С 131 СР 6 

107 М JR отқа 132 JR O Z,SETS 


para el contenido del bit 0 de la fila 
que estamos tratando. Un salto in- 
condicional (JR OTRA) hace que 
nuestro programa vuelva hacia atrás 
a la etiqueta especificada donde nos 
encontramos con la instrucción JR 
NZ SETUP. Si el resultado anterior 
по hasido cero (es decir, si el bit que 
hemos examinado estaba alzado) 
accedemos a la dirección etiquetada 
por SETUP (donde volvemos de 
nuevo a ver si estamos tratando la 
rotación d/i о 1/4). Como hemos 
elegido la rotación d/i, saltamos a 
SETUP] y allí chequeamos el con- 
tenido de B para saber qué número 
de orden del bitse quiere alterar. De 
esta manera, saltamos a SET7 don- 
de se alza el primer bit del byte con- 
tenido en E (que inicialmente vale 
0). De esta forma ya hemos conse- 


DES 


133 СР 5 
134 JR 2 
155 СР с; 
156 JR 74 
127 СР. 3 
138 JR z 
139 ER 2 
40 JR 2 
141 CP 1 
142 JR 2 
145 SETUP2 LD A 
144 СР в 
145 JR 7% 
146 СР а 
147 JR РА 
148 CP 6 
149 JR Z 
150 СР 5 
151 JR 25 
152 СР 4 
153 JR 2 
154 cr 3 
155 JR FA 
156 EP а, 
157 JR 2 
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SET7 SET- ie 


JP VEZ 
SET6 SET 6,Е 
JP VEZ 
SETS SET З,Е 
JP VEZ 
SET4 SET А.Е 
ЈР VEZ 
SETS SETE 
JP VEZ 
SET2 SET 2,Е 
JF VEZ 
SET1 ВЕТ ВЕ 
uP. VEL 
SETO SET О,Е 
JP VEZ 
SALVA 
¿En las В direcciones sigu 


ientes a SALVA se guardan 
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5105 datos del UDG que se 


esta rotando 


guido el primer paso; el último bit 
de la primera fila se traslada al lugar 
del 1.° bit de la primera fila. 


Y el ciclo se repite 


Tras esta última operación, salta- 
mos incondicionalmente a la direc- 
ción etiquetada en VEZ donde in- 
crementabamos el registro IX (con 
esto accedemos ya al siguiente Byte, 
de cuál tendremos que comprobar 
su último bit). La siguiente instruc- 
ción (DJNZ BUC) hace que se de- 
cremente B en 1 y salte a BUC mien- 
tras su valor no sea cero. A partir de 
BUC volvemos a repetir la misma 
FIG. 3 operación anterior, cargando en C 
(Situación de los bits tras un cuarto de giro) el contenido de ІХ + 0 que ahora ya 
es el 2.° dato del UDG. 

Una vez que B sea igual a 0, quie- 


re decir que hemos examiando el 
contenido de todos los últimos bits 
de las 8 filas y trasladado su conteni- 
do al registro E. Bien, pues este re- 
gistro se carga en la dirección conte- 
nida en HL (línea 59) y que corres- 


ponde a la dirección inicial del 


lo ls Ef fe ta la | 
Ela е El] 


тет 
DG NUEVO 
R 68000 


UDG ANTERIOR 


Е 


нс 
SG, 


RANDOMIZ 
¿ROT 


om 
ач 


ЗВ Ўсімаі UDG en esta primera parte de este 
complicado bucle. Volvemos a car- 

RA! E NDOMIZE NDOMIZE gar en IX la dirección etiquetada en 
USR 62000 USR босай USR 60000 SALVA, con lo cual se accede de 


nuevo al primer dato del UDG (aho- 
ra se trata de comprobar el estado de 
cada uno de los penúltimos bits de 
las 8 filas del UDG). Entre las lineas 
65 y 70, incrementamos HL para po- 
der escribir sobre la siguiente direc- 
ción del UDG; decrementamos el 
contador de las filas (registro D), 
iniciamos de nuevo el registro E a 0 
y si no hemos completado todas las 
ше filas, volvemos de nuevo a la etique- 
ORIGINAL ta BYTE donde se reinicializa todo 


+ f el proceso. 
RANDOMIZE RANDOMIZE Leanpdurze Enrevesado. ¿No?A primera vista 


USR 60007 USR 60007 USR 68007 А 
sí lo parece, pero puede llegar a en- 


==) tender totalmente el proceso si si- 
ROTACION IZQGUIERDA/DERECHA | 


gue el programa paso a paso con un 
ге ананас modelo de UDG como ejemplo. 
Entonces podrá ver que a pesar de 
Fig. 4 su longitud, el programa es geniu- 
(ROTACION COMPLETA DE UN UDG) namente sencillo, ya que no hace 


ROTACION DERECHA/IZOUIERDA 


más que poner en práctica los fun- 
damentos que explicamos en nues- 
tro apartado anterior, «Ideas básicas 
de la rotación». 


El programa de 
demostración BASIC 


Sino dispone de un ensamblador, 
debe hacer uso del programa BA- 
SIC que carga los códigos en la me- 
moria y que al mismo tiempo ofrece 
una demostración de lo que es ca- 
paz de hacer. 

Cuando desee utilizarla en un 


programa propio, deberá grabarla 
con SAVE “ROTACION”CODE 
60000,309 y cargarla posteriormente 
(LOAD “”CODE). Después de ha- 
ber hecho lun CLEAR 56995, antes 
de llamar a la rutina, se debe cargar 
en la dirección 59999 en n.° de Or- 
den del gráfico a imprimir y poste- 
riormente RANDOMIZE USR 
60000 ó RANDOMIZE USR 60007 
según el sentido del giro que quiera 
dar al gráfico. Finalmente, imprima 
el gráfico. El método es similar al de 
la ya estudiada inversión de caracte- 
res. 


ROTACION DE DES 


Una mejora sustancial de la ruti- 
na consistiría en que rotara no sola- 
mente un gráfico, sino todo un blo- 
que de caracteres. Aquí ya no habría 
que cambiar exclusivamente los bits 
del carácter, sino también cambiar 
las direcciones de los gráficos que 
conforman el bloque. Sobre la base 
de lo que ya hemos visto y si tiene 
los suficientes conocimientos para 
ello, puede intentar afrontar este 
nuevo problema. 


Orlando Araujo Martín 


REM Orlando Araujo Martin 
REM Cargador ROTACION 
REM 13 Junio 1986 


ир юн 


50 PRINT FLASH 1;АТ 10,10; "СА 
RGANDO CODIGO" 

100 LET CON=0 

120 FOR 1=60000 TO 60309: READ 
A 

130 POKE 1,4: LET CON=CON+A: NE 
MTL 

140 IF СОМ<>52955 THEN 
ERROR ЕМ DATAS": 6ТОР 
150 REM DEMONSTRACION 
160 REM 

170 CLS 

200 LET CON=144: 


PRINT " 


FOR 1=144 TO 1 


64: FOR N=0 TO 3: POKE 59999,144 
-СОМ: PRINT CHR# Із" "5: RANDOMI 
ZE USR 60000: NEXT N 

210 LET CON=CON-1: PRINT : NEXT 
І 

250 PRINT INVERSE 1;АТ 21,0;"D 
ER./IZQ" 


300 LET X=0: LET Y=15: LET CON= 
1444 FOR т=144 TO T6 FOR N=0 T 
О 3: POKE 59999,144-CON: PRINT А 
T X,Y;CHR# I: RANDOMIZE USR 6000 
7: LET Y=Y+2: NEXT N 

310 LET CON=CON-1: 


LET X=X+1: L 


ЕТ Y=15: NEXT І 
350 PRINT INVERSE 1;AT 21,155" 
IZO./DER." 


1001 DATA 62,0,50,92,234,24,5,62 
,1,50,92,274,58,95,234,203,39,20 
3,59,205,59,95,2 


жт 


1002 DATA 123,92,25,34,93,234,1, 
8,0,42,93,234,17,145,235,237,176 
133,145,235,34,176,92,221,42 
1003 DATA 176,92,42,93,234,30,0, 
22,8,6,8,221,78,0,58,92,234,254, 
0,40,21,24,52,32,115 

1004 DATA 221,35,16,238,115,221, 
42,176,92,35,21,30,0,122,200,24, 
223,122,254,8,40,61,254,7,40 
1005 DATA 61,254,6,40,61,254,5,4 
0,61,254,4,40,61,254,3,40,61,254 
,2,40,61,254,1,40,61 

1006 DATA 122,254,8,40,56,254,7, 
40,48,254,6,40,40,254,5,40,32,25 
4,4,40,24,254,3,40,16 

1007 DATA 254,2,40,8,254,1,40,0, 
203,65,24,167,203,73,24,163,203, 
81,24,159,203,89,24,155,203 

1008 DATA 97,24,151,203,105,24,1 
47,203,113,24,143,203,121,24,139 
,58,92,234,254,0,40,2,24,33,120 
1009 DATA 254,8,40,61,254,7,40,6 
2,254,6,40,65,254,5,40,64,254,4, 
40,65,254,3,40,66,254 

1010 DATA 2,40,67,254,1,40,68,12 
0,254,8,40,63,254,7,40,54,254,6, 
40,45,254,5,40,36,254 

1011 DATA 4,40,27,254,3,40,18,25 
4,2,40,9,254,1,40,0,205,251,195, 
171,234,203,243,195,171,234 

1012 DATA 203,235,195,171,234,20 
3,227,195,171,234,203,219,195,17 
1,234,203,211,195,171,234,203,20 
3,195,171,234 

1013 DATA 203,195,195,171,234,0, 
0,0,0,0 


PROGRAMA TU ORDENADOR PARA QUE 
JUEGUE COMO UN MAESTRO 


unque las reglas y estrategias 

del juego de las 3 en raya son 

muy simples, conseguir que tu 
ordenador juegue bien no es dema- 
siado facil. En este artículo enseña- 
remos a tu ordenador a jugar a ga- 
nar, o como mucho a empatar. 
Comparado con un jugador huma- 
no experimentado, la única debili- 
dad de este programa es su ocasio- 
nal pasividad; a veces se decidirá por 
un empate cuando es posible obte- 
ner una victoria, 

Además de enseñar a tu ordena- 
dor a jugar, el programa sirve como 
ejemplo de tres técnicas que son 
igualmente aplicables para desarro- 
llar programas de otros juegos más 
complejos, como el ajedrez o las da- 
mas: 


— Movimientos de apertura pre- 
parados. 

— «Echar un vistazo», valorar las 
consecuencias de un movi- 
miento, estudiando las posi- 
bles jugadas siguientes. 

— Heurística, seleccionar movi- 
mientos acordes con principios 
generales de estrategia. 


Reglas y Estrategias 


Antes de explicar cómo funciona 
el programa, revisaremos el objeto, 


EN 
RAYA 


reglas y estrategias de este juego. Se 
juega en una rejilla de 3x3 casillas. 
Dos jugadores marcan una celda, al- 
ternativamente. El jugador que sale, 
marca con una X, y el otro con O. 
(Nos referimos a ellos de ahora en 
adelante, como jugador X y jugador 
0). 

ЕІ primer jugador que coloque 
tres marcas en una columna, fila o 
diagonal gana. Si todas las celdas es- 
tán llenas sin que haya ganado nin- 
gún jugador se produce un empate. 
Antes de empezar los subsiguientes 
juegos, ambos jugadores intercam- 
bian el orden de salida, así el prime- 
ro pasa a ser el segundo y viceversa. 
El nivel más bajo de estrategia en el 
juego se compone de tres pasos (1) 
si puedes ganar en tu siguiente tur- 
no, hazlo; (2) si tu oponente puede 
ganar en el suyo, bloquea su acción; 
(3) si no se dan ni (1), ni (2) ocupa 
otra casilla libre. 

No lleva mucho tiempo mejorar o 
refinar el paso (3). La buena estrate- 
gia está basada en la trampa, una 
marca que te da dos oportunidades 
de ganar en tu siguiente jugada (grá- 
fico 1). Tu oponente sólo será capaz 
de bloquear una de estas posibilida- 
des y así cuando te toque jugar de 
nuevo, tendrás todavía una oportu- 
nidad de completar una raya. 

Reciprocamente, para evitar per- 


LISTADO 1 


S>RANDOMIZE 


THE. 


@ FLASH Ø: INVERSE @: BRIGHT A 
DIM Te > 


DIM J 


DIM 054,220: DIM 


2 
Єй READ TEFC) 


70 NEXT С 

8@ NEXT Е 

эй DATA 2,3,2.3,1,3,2,3,2 

100 FOR N=1 TO 4 

118 FOR Y=1 TO 2 

129 READ cM, o 

130 НЕФТ Y 

148 NEXT Н 

150 DATA 8,1,1,1,1,8,1,-1 

160 FOR W=1 TO 8 

170 FOR Y=1 ТО З 

188 READ ACH, vo 

190 NEXT Y 

208 NEXT М 

¿10 DATA 1,1,1,1.1 
CL 


| 254 PRINT "EL QUIERES 

CTRON"s INK @;"'" 
INFUT АБЫ QUIEN VOY A JUGAR "; LIME 5% 
8 THEM LET S#=S8,1 TO 8) 


“EN 5% 
TEG IREN, THEN 


BUE EL ORDENACOR JUEGE SOLO, INTROGUC 


LET 


CETRUM" 


go TA 


E 
CLS : 
405 PRINT AT 13,2 
406 PRINT AT 8,16 
407 PRINT AT 15,5:У(2) 
418 LET НМей 
428 FOR F=1 TO 
430 FOR C=1 TO 
440 LET ICF,C 
450 NEXT С 
MEAT Е 


1 PAPER 15" 
3,17-ІМТ CLAR 


З EN RAYA - а 
с12;8Т 15, 25; "EMPATES" 


¿AT 1%. 


ESIZ] 
- 


LISTAD 


"MARCA "5 INK 


"IDEGA: "; ІНК JMR кі І JHR? INE AS AT З 
MNR 1; 08 МЕ+1 > 

525 PRINT AT 10.175" 
IF K NRò=1 THEM GU 
IF CHR THEN Gt 


гад SRC TES 
1008 


2240 
а THEN GÜ 
6 THEN GO Т 
5 THEN GO TO 
ЕМ бй TO 470 


С JE NR 251 ›ЖС 


FLASH 1; ІНК 7; 13 "GAMA "i tC ICMR 2.1 ТО 


НЕ заб REL 
й 


FLASH 1; PAFER 1; ІНЕ т: "EMPATE" 


LET JESJE+1 


ANUNCIESE MADRID 


(91) 733 96 62 
por BARCELONA 


MODULOS | (93)3014700 


LISTADA С 

738» PRINT АТ 15,5; “2 АТ 15.173 105 AT 15,288) JE 
740 INPUT "SEGUIMOS 0 LO DEJAMOS (520; "; LINE HS 
745 PRINT AT 

758 ІР Нз" H$: THEN GO TO 360 

760 IF Н%<>"р" AND H$4b"d" ТНЕН GO TO F 

810 STOP 

LISTAD = 

ВайзРЕІНТ АТ 210; "FILA ў COLUMNA JUEGO HUEVO” 
830 INFUT "FILI Mi" СОСЫМНА 

БЭЗ PRINT AT 21.83" x 
540 ІР FM=ġ m Сцей THEN CO m 

590 

зей ІН Е 

srg РЕІНТ нт “арк, 1; 

280 GO TO 540 

896 PRINT #1: PAPER 1; INK 

Вій 

320 A 

340 

950 PRINT 81; PAPER 1; ІНК 75" 

зей LET НМ=6: GO TO зай 

970 RETURN 

330 PRINT AT 1018F AT 1a, 25CM: LET ІЕМ, ME 
390 RETURN 


JUEGO CANCELADO саб? 


"i: PAUSE 208 
"i: PAUSE 200 


PAUSE 200 


дег el juego, intentarás impedir que 
tu contrario te ponga una trampa 
(gráfico 1). Protegerte de las tram- 
pas no es siempre fácil. En algunos 
casos deberás evaluar las posibles 
jugadas de dos turnos sucesivos pa- 
ra desbaratar una posible encerro- 
na. Incluso, la primera marca del ju- 
gador O puede conducirle a un posi- 
ble fracaso. Las siete configuracio- 
nes que el jugador O debe evitar en 
su primer turno están en el gráfico 2. 
Antes de seguir leyendo, puedes 
comprobar por ti mismo que X pue- 
de ganar en cada una de esas situa- 
ciones. 


Cómo juega el ordenador 


En el siguiente párrafo, explicare- 
mos como el ordenador maneja am- 
bos papeles, jugador X y jugador С. 
Ocasionalmente, puede sonar como 
si el programa juega consigo mismo, 
pero debes tener en cuenta que en 
un real, tu representas un papel y la 
máquina otro. 

Las primeras marcas de ambos ju- 
gadores son tratadas como casos es- 


peciales. El programa usa movi- 
mientos preparados para estas juga- 
das, sin analizar las posiblesjugadas 
siguientes, ni utilizar métodos 
heurísticos. Para seleccionar las 
marcas de los turnos siguientes el 
programa utiliza cinco pruebas: 

1. Buscar potenciales jugadas 
para ganar, marcas que completen 
una raya. Si encuentra varias, el pro- 
grama escoge aleatoriamente entre 
ellas. 

2. Siel programa no puede en- 
contrar una marca que le dé la victo- 
ria, comprueba siel oponente puede 
ser bloqueado para prevenir una 
victoria en su siguiente turno (se in- 
vestiga una jugada adelante). El pro- 
grama bloquea la primera de esas 
rayas que encuentra. 

3. Si el programa aún no ha 
marcado ninguna casilla, comienza 
a buscar celdas para poner una 
trampa al contrario, escogiendo la 
primera que encuentre. 

4. Si ninguna de estas compro- 
baciones ha resultado para marcar 
una casilla, el programa busca casi- 
llas donde prevenir una posible 
trampa del contrario en su siguiente 


turno. Esto implica estudiar las posi- 
bles marcas de las dos jugadas si- 
guientes. 

5. Para escoger entre las celdas 
que pasan la prueba 4, el programa 
selecciona la casilla que está en las 
menos rayas posibles, estas rayas no 
deben incluir ninguna de sus pro- 
pias marcas. La razón de esto, es que 
cuantas menos rayas haya sin mar- 
cas del jugador, menos posibilida- 
des tiene el oponente de ganar el 
juego. Sin embargo, este principio 
no siempre produce la estrategia 
más agresiva, por esto el programa, 
ocasionalmente se colocará para 
forzar un empate cuando es posible 
obtener una victoria. 


El programa 


Presentamos el programa en blo- 
ques lógicos. Tecléalos según va- 
mos avanzando en la explicación. El 
primer bloque inicializa el ordena- 
dor, crea varias matrices y asigna 
ciertos valores para algunas varia- 
bles generales del programa: 


LA REVISTA QUE INTERESA TANTO AL AFICIONADO сомо AL UE 


Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 


ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 


Ya está a la venta 
LARES 


Cómprela en su kiosco habitual o solicitela a: 


А Murillo, 377 
7339662 
Be. MADRID 


к іштныгиа Y 


1888; IF ММ>1ТНЕН GO TO 1214 
1410 IF N ПЕН GO TO 1060 


1826 GO SUE 2 


1020 LET ЕП-ЕТ 
1040 LET СМ=СТ 
1050 GO TO 1990 
1069 LET TTL FM. CM) 
1070 50 SUB 262 
1636 IF T=1 THEN 


GO TO 1030 


1031 ІР THEN GO TO 1116 
1032 IF THEM GO TO 1194 


1690 ІР I¢FT,CT2=3 THEN 
1100 GO TO 1180 

LAIO LER 
1120 LET С 
1130 GO TO 1150 
1140 IF РТ, ЕТ; 
1141 
1142 


GO TO 1878 


1 THEN GO TO 1138 
THEN GO TO 1150 
3 THEM GO TO 1170 


1143 LET ‘f=CT-CM 

1150 IF ABS Мес OR ABS ўз] THEN GÜ TO lara 
GO TO 1138 
LET М=ЕТ-ЕМ: LET Y=CT-CM 
IF ABS Wel OR ABS Y=1 THEM GO TO 1070 


LET ЕН 
LET 


LISTADO = 


1218; IF HM ZTHEN GO TO 1240 
1226 IF HE=2 THEM GO TO 1348 
1238 GO TO 


I 8 THEN GO TO 1340 
1280 LET Ш INT СНЕЕНО 1+1 


1334 GO TO 1539 


LISTADOS 
1348; LET 5 ~N 
1358 ГЕТ 
1360 GO 
ў IF N= Йй “THEN 
= 


бй ТП 1438 


1400 LET F 
1410 LET СМ 
1426 GO TO 1990 


LISTADO 1 


La matriz I (fila, columna) contie- 
ne una imagen del tablero de juego. 
Las lineas 40 a 90 leen los tres tipos 
de casillas y los guardan en T(,), l= 
centro, 2=esquina, 3=lado. Las 
líneas 100 a 150 leen en D(,) los vec- 
tores de dirección usados para gene- 
rar las ocho posibles rayas que hay 
en el juego (gráfico 3). Para la raya 
R, D(R,1) es el incremento en filas y 
D(R,2) el incremento en columnas. 

Las líneas 160 a 210 leen еп А(,) 
los atributos de las ocho rayas. Para 
la raya R, A(R,1) es la fila de salida y 
A(R,2) es la columna, A(R,3) es la 
dirección que sigue. 

C$() almacena los caracteres usa- 
dos cuando se representa la rejilla: 
«-» para celda libre, «X» y «O». J$0 
guarda el nombre de cada jugador, 
J$(2) es siempre «SPECTRUM». 
«VC» contiene el número de victo- 
rias de cada jugador y JE el de juegos 
empatados, las tres son inicializadas 
а сего. 

En la línea 254 está la rutina de in- 
troducción del nombre del jugador 
humano, si este nombre contiene 
más de 8 caracteres es truncado para 
que pueda almacenarse en J$(). En 
las líneas 330 y 340 se determinan 
cuáles son los jagadores para el pri- 
mer enfrentamiento. J(N)=1 indica 
que el jugador М es humano y J(N)= 
2 que es el ordenador. 

El siguiente bloque de líneas se 
encarga de iniciar un nuevo juego: 


LISTADO 2 


Las líneas 360 a 380 hacen que los 
jugadores intercambien sus órdenes 
de salida cuando se inicia un nuevo 
juego (la línea 350 mantiene el or- 
den para el primer juego). NM es el 
número de movimiento, inicial- 
mente a 0. Un movimiento comple- 
to consiste en 2 marcas, una X y un 
0. Las líneas 420 a 460 vacían la reji- 
lla para un nuevo juego. Ahora el 
programa está preparado para la pri- 
mera marca: 


LISTADO 3 


Primero el contador de movi- 
mientos es incrementado y el nú- 
mero de jugadas es 1 (líneas 470 a 
480). La subrutina llamada en 500 


e 


LISTACGO іш 

1438; IF ММ=2ТНЕН GO TO 1500 
1448 LET ST=HR 
1450 GO SUE 2660 
1468 IF М(22 THEN 
1478 LET FM=FY 
1488 + LET СМ 
1498 GO TO 1998 


LISTHOG 11 


GO TO 1300 


13007 LET Ес-й 
1518 FOR 
1520 FOR 
1538 
1548 


й THEM 
HR 


Go TO 1766 


THEN GO TO 1680 


AHD HR=1 THEN GO TO 1720 


AHD HR=1 THEN GO TO 1798 

9 -HR 

1700 GO SUB 2660 

1710. TF THEN GO TO 1750 
1 


1720. LET. FS 
1730 LET ОЕ 
1740 LET ЖЕЗ, 
1790 LET ICF,C 


1910: LET 
1920 GO SUE 
1830 LET 10 
1848 LET E 


GO TO 1 


1 THEM 
1870 LET CH=1 
1990 БЕЛГЕ 
1900 FOR W= 
IF Oe 


OCW.39 THEN GO TO 1938 


ati 
1950 ІР ОСН THEN GO TO 1976 
1954 00 TO 1340 

LET FM=0 CH. 1 > 

LET СМ=0 CH. Z 


imprime la rejilla de juego en el es- 
tado actual y la 520 indica de quién 
es el turno de jugar. Dependiendo 
del jugador que debe marcar, las 
líneas 530 y 535 llaman a una u otra 
subrutina. La de la línea 820 es para 
recibir desde teclado la elección de 
casilla del jugador humano, y la de 
la línea 1000 para que el programa 
siguiendo su lógica, seleccione una 
celda. Después de realizar la selec- 
ción el programa evalúa su efecto: 


LISTADO 4 


La subrutina llamada en 560 bus- 
са еп las ocho rayas para ver si el ju- 
gador actual ha ganado. N>0 indica 
que ha ganado, en ese caso las líneas 
640 а 680 anuncian el nombre del ju- 
gador e incrementan su contador de 
victorias. Si N=0, el ordenador com- 
prueba el número Че movimientos 
NM para ver si el juego ha termina- 
do de alguna otra manera. Hay sólo 
9 casillas en la rejilla, y cada movi- 
miento representa ocupar dos de és- 
tas, una para cada jugador. Ordina- 
riamente, NM no puede exceder 
nunca de 5, porque la X del movi- 
miento número 5 siempre ocupa la 
novena casilla (2+2+2+2+1=9 casi- 
llas). Sin embargo, si un jugador 
cancela el juego, NM de carga con 6. 
La línea 590 detecta esa condición y 
salta al menú de continuación. 

Cuando NM=S, el ordenador de- 
duce un empate (no hay ganador y 
todas las celdas están marcadas), y 
lo anuncia (líneas 690 a 720). En 
otro caso NM es menor que 5, así el 
programa da el turno al siguiente ju- 
gador. 

Las líneas siguientes imprimen el 
menú de continuación al final del 
juego: 


LSITADO 5 


Se imprimen los contadores de 
victorias y de empates y se pregunta, 
si se quiere terminar o seguir jugan- 
do. Este es el final del programa 
principal. Ahora presentaremos las 
dos rutinas más grandes, el turno 
del humano y el turno del ordena- 
dor. 


Subrutinas 


El programa llama a la siguiente 


¡LISTADO із 


1988; LET 1<РМ,СМ» 
2666 PRINT AT 18 
2818 КЕТПЕН 


2040 ШЕТ. 
2050 БЕТ 


гіа ГЕТ QF=QF+D¢ DN, 1) 2 
+06 DH, Z) 
LL+1 

GO TO 2194 

PRINT COC TCM, Y 3413; 
PRINT SS 

NEAT Y 


LISTADO 15 


407 LET 


; Т БАМЫ, 
2400 NEXT 


2410 IF NES 250 OR MF oe THEM GO TO 2440 


IF MF >a THEN 
LET М=М+1 
HEAT Е 


GO TO 2460 


2458 
2460 
2470 RETURN 


subrutina cuando es el turno del ju- 
gador humano: 


LISTADO 6 


Las lineas 820 a 830 inquieren al 
jugador para que especifique la fila y 
columna de la celda a marcar. Las fi- 
las están numeradas de arriba a aba- 
jo y las columnas de izquierda a de- 
recha. Si el jugador selecciona 0,0, 
el juego es cancelado. Cualquier 
otro par fila-columna inválido detie- 
ne el programa y pregunta de nuevo 
al jugador su elección (870-940). 

Dado un par fila-columna válido, 
la línea 860 determina si la celda es- 
tá vacía, КЕМ,СМ)=0. Si la celda 
está vacía la línea 980 imprime la op- 
ción y la marca en la matriz imagen. 
La línea 990 retorna al programa 
principal. 

Cuando es el turno del ordena- 
dor, el programa llama a la rutina en 
la línea 1000. El programa usa movi- 
mientos preparados para la primera 
X y el primer O. La primera X es una 
elección aleatoria, y el primero 0 es- 
tá determinado por la posición de la 
X anterior. Para los movimientos si- 
guientes, el ordenador usa la lógica 
de evaluarlos posibles movimientos 
sucesivos. 

Las siguientes líneas manejan las 
primeras X y O del ordenador: 


LISTADO 7 


Si el número de movimiento NM 
es mayor que І, la línea 1000 hace 
que el programa salte a las rutinas 
de investigación de posibles jugadas 
sucesivas que serán descritas más 
adelante. Si NM=1 у NR=1, el pro- 
grama hace la primera marca, una 
X. La subrutina llamada en la línea 
1020 selecciona una celda aleatoria- 
mente, y las líneas 1030 y 1040 guar- 
dan la situación de dicha casilla en 
las variables FM y CM. La línea 
1050 provoca un salto al final de la 
subrutina que maneja el turno del 
ordenador. 

Las líneas 1060 a 1200 actúan 
cuando el ordenadores el jugador O 
y el número de movimiento es 1; de- 
ben encontrar una celda que evite 
las siete posiciones de pérdida del 
juego. En la línea 1060, las variables 
FM y CM contienen la fila y colum- 
na del movimiento más reciente; en 


otras palabras, informan al progra- 
ma cuál celda contiene la X. La línea 
1060 determina en qué tipo de casi- 
lla está la X: centro, esquina o late- 
ral. 

La subrutina llamada en la línea 
1070 selecciona al azar una celda va- 
cía T(FT,CT) como candidata para 
el siguiente movimiento del jugador 
O. Las 1080, 1081, 1082 saltan a la 
comprobación de seguridad apro- 
piada, dependiendo del tipo de cel- 
da que está marcada con X. 

Una vez que el programa ha loca- 
lizado una celda segura, las líneas 
1180 y 1190 guardan su dirección de 
fila y columna, y la línea 1200 salta al 
final de la subrutina del turno del or- 
denador. 

En el caso del segundo movi- 
miento y los siguientes, el programa 
no usará movimientos preparados. 
Primero comprobará si puede ganar 
con una marca: 


LISTADO 8 


Para los números de movimiento, 
NM, iguales 0 mayores que 3, las 
líneas 1240 a 1330 buscan una casilla 
que de la victoria. La subrutina lla- 
mada en la línea 1260 cuenta el nú- 
mero de rayas no bloqueadas que 
contengan al menos 2 marcas Ше ju- 
gador NR. Si N=0, no hay tales 
rayas, así el programa salta a la ruti- 
na del movimiento defensivo. 

Si N>0, entonces la matriz G() 
lista las rayas que contienen celdas 
ganadoras. La línea 1280 selecciona 
aleatoriamente una de estas rayas, y 
la subrutina llamada en la línea 1300 
encuentra la fila y columna de la cel- 
da libre en esa raya. En la ппеа 1280 
se genera un número aleatorio entre 
lyN. 

Cuando el programa localiza una 
celda para ganar, las lineas 1310 y 
1320 almacenan su numero de fila y 
de columna y la linea 1330 salta al fi- 
nal de la subrutina. Si el programa 
no puede encontrar una celda gana- 
dora, comprueba si puede impedir 
que su oponente gane en su siguien- 
te turno: 


LISTADO 9 


La línea 1340 sitúa en ST el nú- 
mero del jugador contrario. La su- 
brutina llamada en 1360 cuenta el 


número de rayas no bloqueadas que 
contienen al menos 2 marcas del ju- 
gador contrario. Si N=0, no hay 
rayas de ese tipo, y el programa salta 
ala rutina de colocación de trampas. 
SiN noes 0, entonces hay al menos 
una posibilidad de que el contrario 
gane en su siguiente marca. Las 
líneas 1380 y 1390 encuentran la cel- 
da ganadora del oponente y las 
líneas 1400 y 1410 almacenan la di- 
rección de su fila y su columna, y así 
el ordenador puede ocuparla. La 
línea 1420 salta al final de la rutina 
del turno de la máquina. 


LISTADO 10 


La subrutina de la línea 2660 com- 
prueba cada casilla vacía para ver 
cuál, si hay alguna, produce una 
trampa. Si N=2, el programa ha en- 
contrado una celda, y las líneas 1470 
y 1480 guardarán su número de fila y 
columna para que el ordenador la 
utilice. La línea 1490 salta al final de 
la subrutina del turno del ordena- 
dor. 

Si no se encuentran oportunida- 
des de colocar una trampa, el pro- 
grama comprobará cada celda vacía 
para ver cuál impediría al contrario 
colocar una trampa en su siguiente 
marca. Esta es la evaluación de posi- 
bles jugadas futuras de más alcance 
que realiza el programa: 


LISTADO 11 


La variable FS cuenta el número 
de celdas seguras (aquellas que im- 
piden al oponente poner una tram- 
pa). En las líneas 1730 y 1740, para 
cada celda segura FS que es encon- 
trada, O(FS,1) y O(FS,2) guardan su 
número de fila y columna. Una vez 
que el programa ha localizado todas 
las celdas seguras, aplica el método 
heurístico para escoger entre ellas: 


LISTADO 12 


El programa marca cada celda se- 
gura (línea 1810) y entonces cuenta 
cuántas rayas M no bloqueadas que- 
dan. Para cada celda segura FS, 
P(FS,3) guarda el número de rayas 
no bloqueadas que quedan cuando 
la celda es marcada. 

Las líneas 1900 a 1930 comparan 
los resultados de estas marcas de 


prueba para ver cuáles de éstas están 
en el menor número posible (SM) 
de rayas no bloqueadas. En las 
líneas 1940 a 1960 el programa esco- 
ge aleatoriamente celdas seguras 
hasta que encuentra una que deje 
SM rayas no bloqueadas. En la linea 
1940 se genera un número entre І y 
FS. 

Las siguientes líneas finalizan la 
subrutina que controla el turno del 
ordenador: 


LISTADO 13 


La línea 1990 marca el número de 
jugador NR en la posición de rejilla 
I(FM,CM). La línea 2000 anuncia el 
movimiento, y la línea 2010 devuel- 
ve el control al programa principal. 


Rutina de impresión y 
auxiliares 


Aqui está la rutina que imprime el 
tablero de juego: 


LISTADO 14 


La línea 2080 controla la línea de 
impresión, la columna se controla 
imprimiendo espacios (línea 2190). 

Las rutinas auxiliares son reque- 
ridas en ciertas secciones del pro- 
grama para realizar funciones meno- 
res. Esta primera subrutina analiza 
el contenido de las seis rayas posi- 
bles: 


LISTADO 15 


Al volver de esta subrutina, la ma- 
triz G() lista los números de las N 
rayas no bloqueadas que contengan 
al menos SL marcas del jugador ST. 
La variable N cuenta el número de 
rayas no bloqueadas que contienen 
al menos SL marcas del jugador ST. 
La variable M cuenta el número de 
rayas que no contienen ninguna 
marca del otro jugador. 

La rutina que viene a continua- 
ción localiza la primera marca en la 
raya R: 


LISTADO 16 


De vuelta, FO es la fila de la raya 
abierta y CO la columna. La siguien- 
te se encarga de seleccionar una ca- 
silla vacía: 


2686 IF 10M 
2698 LET 


ТНЕН 


НЕХТ “ 
HEST H 
RETURM 


TARO алғ 


LISTACO 16 


LET ЕТ=ЕТ+0 
LET CT=CT+02 OH. 2? 
НЕХТ И 

RETURN 


бз Тї 


ёй 


TO 


LISTADO 17 


En las lineas 2620 y 2630 se obtie- 
nen el número de fila y columna 
aleatoriamente. En el retorno, la fila 
se guarda en FT y la columna en CT. 
Por último, presentamos la subruti- 
na que busca la oportunidad de co- 
locar una trampa: 


LISTADO 18 


Al principio de la subrutina, ST es 
el número de jugador que intenta 
colocar la trampa. Al final, N=2 in- 
dica que se ha encontrado una tram- 
pa y, FV y CV almacenan el número 
de fila y columna de la celda donde 
se va a colocar. 


Retoques 


Puedes conseguir que la máquina 
juege consigo misma si en la peti- 
ción de nombre introduces “SPEC- 
TRON”. En ese caso, un testigo 
(TES) se ponee a 1 en la linea 530 
que provoca el salto a la rutina de 
petición de celda para el jugador hu- 
mano, se fuerza con una condición 
lógica el salto a la rutina de turno del 
ordenador, sólo que ahora el núme- 
ro de jugador es 1 y la lógica del pro- 
grama opera con las otras fichas si- 
guiendo la misma estrategia descri- 
ta al principio del artículo. 

Después de jugar contra la má- 
quina puedes encontrar frustrante 
que el ordenador nunca pierda. Si 
juegas tan bien como él, cada juego 
acabará en empate. Para hacerlo 
más excitante, puedes simplificar la 
estrategia del ordenador de varias 
maneras. Primero, puedes eliminar 
los movimientos preparados para el 
primer O, saltando esa sección del 
logical. Por ejemplo: 


1010 REM ANTES HABIA: IF 
NR<>1 THEN GOTO 1060 


Después de hacer este cambio, 
observarás que a menudo, el orde- 


о | о | • х . Х CENTER, х SIDE, 
© ANY SIDE: 0 FAR CORNER: 
x о 
ре . о x x 
El jugador O ha caído en la trampa. El jugador X puede ganar en su próximo 9 
turno pues tiene dos marcas ganadoras, indicadas соп un asterisco. Las siete posiciones de fracaso para el jugador O en su primera marca. 
Path 1: Path 2: X SIDE, X CORNER, 
|] » . © NEAR SIDE: О NEAR SIDE: 
о 
. 
х о 
. 
Path 3: Path 4: 
. . 
Х CORNER, X CORNER, 
з = O NEAR CORNER: 0 FAR SIDE: 
x x 
. . 
Path 5: Path 6: 
. . 0 о 
. . 
. . X CORNER, 
О FAR CORNER 
Path 7: Path 8 x 
а саж ае GSA 
o 
alij ж 


Las ocho posibles rayas en una rejilla de «3 en raya». 


El jugador O puede evitar la trampa marcando cualquiera de las dos casillas 
seguras indicadas con asterisco. 


nador mueve a las posiciones de 1500 GO TO 1020: REM ANTES  rrafo “COMO JUEGA EL ORDE- 
perdición del gráfico 2. Puedes tam- HABIA: LET FS=0 МАРОК”. Incluso en este nivel la 
bién eliminar la posibilidad de que Después de hacer este cambio, el máquina puede sorprenderte reali- 
el ordenador ponga o detecte tram- ordenador jugará al nivel más bajo zando un brillante movimiento 
pas mediante: de estrategia, comentado en el pá- aleatorio. 


GUSANEZ A 


Вай A г а AHORA ME TENGO QUE 
— --- —— \ ÍMVENTAR LA DE DEXOMPAIMIR 


МЕ HE INVENTADO UNA SUBRUTINA, 


5 


Basado en el juego de dados «Craps», el programa que nos ha enviado desde 
Valencia José Gallego muestra en todo momento información sobre 
la cantidad apostada, el dinero de que se dispone y el récord de ganancias. 
Incluye unas completas instrucciones, aunque su manejo no es nada 
complicado, ya que sólo hay que responder a las preguntas que efectúa el 
ordenador. Las líneas 5 y 6 permiten utilizar un juego de caracteres diferente 
al del Spectrum, situado a partir de la dirección 64250, Por consiguiente, si 
no se va a emplear un juego de caracteres alternativo, es necesario 


eliminarlas. 

1 REM 44 PRINT AT 11,43" 
CRAPS р 
46 PAUSE 5 

JUEGO DE DADOS 48 PRINT AT 12,43" 
2 REM 50 PAUSE 5 

3 REM JOSE GALLEGO GONZALEZ 52 NEXT + 
VALENCIA-ABRIL 1986 SS PRINT PAPER 7; INE ОҙАТ 
REM S; "AB";AT 4,5; "Ср" 


NEXT x 
INE O;AT 1, 


4 
S LOAD "chars"CODE 6425) 
© FOKE 606,250: POKE 


249 

В CLS : РКІМТ FLASH 1;AT 11, 
10; "FARA LA CINTA" 

10 GO SUB 9000 5 

15 POKE 25658,8: LET аі=100: L 67 FOR 
ЕТ re=O: LET п=' жэен" 70 PRINT 
REM FRESENTACION 728; "ЕН" 
BORDER 4: PAPER 4: INE О: С 


e 
TO 100: NEXT x 
ў INE Os AT 3, 


NEXT x 
INE ОАТ 16 
ат 1 "Ів" 


PAPER INE O;AT 16 
АТ 17,153" E" 
1 TO 100: 


BGR = TO О STEP 1 
О INK X 

32 PRINT AT 8,43" 

34 PAUSE 5 

36 PRINT AT 9,45" 


1 TO 500: NEXT x 


PROGRAMAS 


100 REM INSTRUCCIONES 


105 CLS 

110 PRINT АТ 1,7: "ж. INSTR 
ES 

115 PRINT AT EEE 


siste en lanzar losdados y 
contra la banca.” 
120 PRINT АТ 6,0%" sal 
11 а 1а primera ti-rada, з 
la misma cantidadde lo a 


‘RINT AT 
кө? 
O PRINT AT 13,05." Cualq 
otra puntuacion, seconviel 
Si siguestirand 
tu punto, ganas el 
lo apostado,perosi sal 


10,05" Si sa 
а la pri~ mera, 


TU PUNTO. 
pites 
de 


ENI 
EMPEZAR" 
140 PAUSE © 

145 RANDOMIZE 
di=100: 
r #13. AT 
letras)"; 


HO AT 1,07 PULS 


CLS 
1,03 "" Tu 
LINE аж 


Li 


INE 
ESTA"; TAB 


Js "DINERO" 
C21) 5 “roa 


INE боў TAB (17: 
(11) saps TAB (19) іп: TAB € 
INPUT #1,;AT 1,05" Cual 
tas? (min.10)"3ap 

O OR INT ар“ га 


di THEN 60°70 
5 PRINT #13AT 1,03" 

TANTO DINERO! ": BEEF 
TO 200: _NEXT El 


LET di=di-ap: INFUT 0 
PRINT INE O;AT 1,15" 
ізітӨіЗАТ 110%” 


OR LEN aft 


UCC TON 


juego con 


jugar 
е7 о 
е gana 


postad 


Ге un 
se pi 
uier 

rte еп 
o y re 
doble 
е 7, р 


A FARA 


nombre 


6 THE 


ЕТ ®р= 


¿TAB ( 
SH о" 
di; TAB 
E 
nto ap 


p THEN 
240 
@NO TI 


1,-10: 
O TO 2 


"фат 


l,lizap 
247 "PULSA FARA 
TIRAR”: IF INE THEN GO T 
а 
48 PAUSE ©: INPUT О: PAUSE 10 
; “SAT 8,12 


"SAT 6,165" 


+(RNDELS) ТӘ 0 STEP 
БЕЕР .005,10 
54 PAUSE 6: NEXT п 
6 PRINT AT 7,125" "¡AT 8,14 


THEN 60 
CRND#6+1) 
NT (RND*6+1) 
citis LET ascos] 
a¥1Oo+900 
7 THEN GO SUB al 
REM RESULTADO TIRADA 
LET re=atb 
TF THEN LET r#="poOs" 
9 ІР THEN 5 
607 IF THEN 
о" 
608 IF re=5 THEN 
609 IF THEN 
610 IF 1 
ӨТБ THEN 
" 
612 IF re=10 THEN LET rs 


613 IF re=11 THEN Г re="ONCE E!" 
" 705 BEEF 0.5,20 


ОТА IF THEN "DOCE 220 NT INE ОЗАТ 14,13:¢ 
“ 16,10;"HAS GANADO "фар: ШЕТ di= 
615 ІР AND ti21 THEN GO ditap*2 
TO 800 715 IF 417100 AND Чі кс THEN L 
620 IF (сел? OR re=11) AND tit= a q : LET п%=а%: SINT AT 1, 
1 THEN GO TO 760 PRINT INE О АТ 1,1 
630 ІР OR re OR re=12) 9yn#sAT 1, gres PRINT INK 0; F 
AND ti | GO TO 720 LASH 1:АТ 0,21 RECORD" 
640 IF (re=4 OR re=5 OR сезе OR TO 300; NEXT x: GO 


8 OR re=? OR re=10) AND ti<= bed 
1 THEN GO TO 760 а б 200 
7 AND «ізі THEN GO Т 


ré="DOS" 
e=3 THEN LET r#="TRE а 
e=12 THEN LET r#="DOCE 


tp AND 6121 ТІ GO 
110 IF гае? THEN LET r#="SIETE 
701 HEN ETA Ag 
Бауы; Qu -10 
702 IF re=11 THEN LET ré="GoONnc ІМТ INE 9; 


SUS EJEMPLARES DE 


SIN NECESIDAD DE ENCUADERNACION 


To 
PRECIO UNIDAD 


650 ре 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envielo a: 


Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID 


Por favor envienme tapas para la encuadernación de mis 
ejemplares de TODOSPECTRUM, al precio de 650 pts. más gastos de envio. 
El importe lo abonaré 

П POR CHEQUE б CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO П AMERICAN EXPRESS O VISA O INTERBANK 


Número de mi tarjeta 


Fecha de caducidad Firma 
NOMBRE 

DIRECCION 

CIUDAD 

PROVINCIA 


(cada tapa es para 6 ejemplares) 


PROGRAMAS 


ж INSTRUCCIONES ж APUESTA RECORD 
тав 


El juego consiste en lanzar las 
dados y jugar contra ta banca. 


178 


Si sale 7 а 11 а la primera ti- 
пача. ве запа 12 misma cantidad 
se 1a apostado 


Bi gate UN 2,3 012 а та pri- 
mera, se pierde TU PUNTE 


atra puntuacion, а 
ie en tu ru Ta 
y repites tu punta, ga- 
еі dable de Та apastada,pera 
i sale 7, pierdes. 


¡TU PUNTO! 
HAS GANADO 1448 


PERDIDO “зар 1010 BEEE 0.01,1 
O THEN GO TO 0 1 TO tis NEXT x 
Й NEXT х: 


RETURN 
РКІМТ PAPER 7; ІМК ОҘАТ хі 
АТ хізі,1 co" 

0.01,1 

= ТО tls NEXT OS 


1 TO 100: 
АТ 14,1 


"SAT 


16,123" 
790 GO TO 247 
800 
810 PRIN INE T 14,12 
FUNTO!" АТ 16, 10; "HAS GANADO 


GIEN ER Zee INK 


за 


peer 1. disdi Жарж2 

БІЗ ІК HEN РАРЕК 7; хі 
ЕТ re=di: E PRINT AT 1, xiti, ii 

15” "Ж PRINT ¡AT 1,1 497,1 


Sn AT 1,27; ret INK 0; F TO Ete NEXT OX 


NEXT » 60 


е ОТАТ хі 


ТІП 51: NEXT 


844 FOR 
846 РКІМТ АТ 14,1 
850 GO TO 247 
1000 REM CARAS DADO 1 
1 PRINT PAPER 7; 
I АВ" SAT x1+ 


1540 RETURN 
ы 200 REM CARAS 
: OF AT 


" AND І 
060 
20065 


THEN, GO-TO 3 
PAPER 7% INK O;AT 


IF INKEY$= THEN GO TO 


070 IF ІМЕЕ THEN GO TO 1 


AT 
"AT 


14,135" 


WTO AT 1 "МО TIENES 


UIR A 


TO 300: NEXT 


NEXT қ 
HIFAT 1,0g" JUEGA OTR 


7; INE ОЗАТ х2 
1163 "KE" 


NEXT "TO USR Еч 


DATA 0,0,0,0,0,0,0,1 
DATA 
DATA 
DATA 
DATA 
Dal Т A 


5 CENT +158T 1,03" SIGUES JU 
GANDO #(S/N)" 
МО IF INKEY#="" 0 3 
AND ІМЕЕ EN)" THEN, 60 TOUS 


= TURN 


Ri 


PRINT + 


əн ОК CINE: 


Б “EINES: SAVE > 
ЧМ THEN GO TO 


+768 

PRINT "Frograma graba 
THEN 680 TO З do"*“"Rebobine la cinta y pulse" 
"una tecla para verificar": PAU 


Pulse PLAY": VERIFY 
VERIFY "chars"CODE 642 


IF INE Кү e 


OR 


CINE! 9993 PRINT 


"Correcto" 


DE CORREOS 


Dirige tus cartas a: 
Todospectrum 
Bravo Murillo, 377, 5.°-A 
28020 Madrid 


PROBLEMAS CON EL 128 


Hace escasamente unos dias que 
he adquirido un SPECTUM 128 y me 
gustaria que me aclaraseis algunas 
dudas que se me han planteado: 

1. Cuando conecto el interface del 
joystick y el joystick me pasa del men- 
saje Copyright al modo mayúsculas, 
me aparecen unos ceros intermitente- 
mente. Cuando hago Reset me sucede 
lo mismo. ¿A qué es debido esto? 

2. ¿Es perjudicial para el ordena- 
dor quitarle el interface del joystick 
cuando está conectado a la red eléc- 
trica? 

3. ¿Que es un Wafadrive? 

4. ¿Se le pueden conectar al 128K, 
directamente las unidades de micro- 
drive? 


José Vicente Cheto 
Castellón 


1. Si el ordenador le funciona co- 
rrectamente con el interface del 
joystick desconectado, indudable- 
mente su interface está defectuoso. 
Póngase en contacto con el vende- 
dor para que se lo repare o cambie 
por otro. 

2. Nunca se debe desconectar 
ningún tipo de periférico con el or- 
denador conectado a la red eléctri- 


ca, lo más probable es que se dete- 
riore alguno de los dos aparatos. 

3. El Wafadrive es un sistema de 
almacenamiento rápido de datos en 
cartuchos de cinta sin fin similar en 
funcionamiento al microdrive de 
Sinclair. 

4. El 128K es totalmente compati- 
ble con el Spectrum normal por lo 
que no debería haber ningún pro- 
blema en conectar las unidades de 
microdrive a su ordenador. 


APLICACIONES 
Y FUNCIONAMIENTO 
DEL RS-232 


Soy un asiduo lector de vuestra re- 
vista. Me dirijo a vosotros para pedi- 
ros información sobre el interface 
RS-232. Desearía conocer cuál es su 
funcionamiento y las posibilidades 
que existen de comunicarse con otro 
ordeandor que no sea Spectrum. 


Miguel Simo 
Palma de Mallorca 


Explicar en esta sección el funcio- 
namiento del RS-232 resulta mate- 
rialmente imposible debido a la 
complejidad del tema. Sin embargo, 
podemos aconsejarte la lectura del 


«Libro del RS-232» de Anaya Multi- 
media en el que encontrarás todos 
los datos que te sean necesarios. 

Al ser el RS-232 una norma stan- 
dard, con el software adecuado po- 
drás conectar el Spectrum a cual- 
quier otro ordenador que disponga 
de salida RS-232. 


EN BUSCA DEL LISTADO 
PERDIDO 


En el número 20 de su revista, en el 
artículo «La guía del Hacker» falta el 
programa 2. Les agradecería que re- 
solviesen el problema publicando el 
listado de dicho programa. 


Angel J. Valiente 
Castellón 


De nuevo los duendes han hecho 
travesuras con nuestros listados. A 
continuación publicamos el listado 
perdido. 


10 CLEAR 40000:LOAD*“*CODE: 
POKE 65440,81:POKE 65441,101: 
RANDOMIZE USR 65458 


CODIGO MAQUINA 
DEL 68008 


Soy un asiduo lector de vuestra re- 
vista, especialmente del suplemento 
QL. Soy propietario de un QL ver- 
sión MGE y quisiera que me respon- 
dieseis a unas preguntas: 

1. ¿Existe algún libro en castellano 
sobre código máquina del 68008? 

2. ¿Cómo puedo conectar una im- 
presora Seikosha SP100 con salida 
centronics? 


Miguel Angel Jiménez 
Madrid 


1. Existen varios libros sobre el 
68000 y 68008 en castellano. Entre 
ellos se encuentran: «Microproce- 
sadores de 16 bits», (edit. Paranin- 
fo), «68000 guía del usuario» y «QL 
guía avanzada del usuario» (edit. 
RAMA), aunque este último trata 
muy superficialmente el micropro- 
cesador dedicándose en su mayoría 
a la descripción del QDO: 


2. Se encuentra en el mercado un 
adaptador serie-paralelo que permi- 
te conectar el QL con cualquier im- 
presora centronics. 


SISTEMAS MIDI 
PARA SPECTRUM 


Ante todo deseo felicitaros por la 
magnifica revista que publicáis. Agra- 
deceria que me facilitáseis direccio- 
nes de empresas qwue comercialicen 
sistemas MIDI para Spectrum o 
Commodore 64. 


Víctor Ordóñez 
Gijón 


Puedes ponerte en contacto con 
PIN-SOFT. Paseo de Gracia, 11. 
08007 Barcelona; o con Ventamatic. 
Córcega, 89. 08029 Barcelona. 


ENSEÑAR CASTELLANO 
A UN QL INGLES 


En un reciente viaje he adquirido 
un QL inglés; deseando adaptarlo al 
castellano, lo llevé al servicio técnico 
oficial de Sinclair, pero al no disponer 
de la garantía oficial no me han adap- 
tado el ordenador. Quisiera saber si 
existe algún otro lugar donde pueda 
hacer dicha conversión. 


Javier Luis Puertas 
Madrid 


No conocemos ningún estableci- 
miento donde le puedan hacer di- 
cha adaptación. Sin embargo, pode- 
mos informarle de la existencia de 
una tarjeta convertidora que se co- 
necta directamente al bus de expan- 
sión. El único inconveniente es que 
no podrá conectar otro periférico 
(controlador de discos) simultánea- 
mente. Esta tarjeta la fabrica Abaco, 
pudiéndose adquirir en las tiendas 
especializadas por un precio aproxi- 
mado de 12.000 ptas. 


ARANA FOREVER 


Mi carta, como otras muchas que os 
han escrito, se centra sobre el Opera- 


tivo Arana (aprovecho para felicitar a 
Manuel por su programa). 

Mis conocimientos de Ensambla- 
dor son casi inexistentes, pero me 
gustaría modificar la rutina de impre- 
sión de pantalla para hacerlo en 51 
columnas. Mi intención no es conse- 
guir listados y mensajes de error de 
esta forma, sino simplemente la escri- 
tura en pantalla. ¿Qué modificacio- 
nes (si pueden hacerse) debo efec- 
tuar? Según creo, esta parte del pro- 
grama se publicó en el número de 
enero y empieza en la línea 1761 
(PROUT). 


Raúl Lión 
Valladolid 


El conseguir que nuestro Spec- 
trum imprima a 51 columnas en lu- 
gar de sus 32 standard es más dificil 
aún que el convencerlo de que lo 
haga a 64. No es que sea imposible, 
pero pensamos que no vale la pena 
el esfuerzo, ya que las aplicaciones 
para las que puede servirnos son de- 
masiado específicas como para que 
resulte de interés general. 

Aprovechamos el momento para 
destacar que no es esta una sección 
de programas «a medida», sino un 
espacio dentro de TODOSPEC- 
TRUM en la que tienen cabida 
vuestras opiniones, preguntas y co- 
mentarios sobre todo tipo de temas. 
Viene esto a cuento porque, de un 
tiempo a esta parte, parece que estas 
líneas venían siendo utilizadas ex- 
clusivamente como un último re- 
curso a la hora de buscar el modo de 
resolver vuestros problemas de ca- 
rácter técnico. Y no es que no esté 
bien que nos comuniquéis vuestros 
problemas y dudas por si podemos 
seros útiles, pero empezamos a can- 
sarnos de que nos pongáis en un 
compromiso cuando, por ejemplo, 
nos pedís la forma de que funcione 
cierto programa comercial con un 
determinado tipo de impresora e in- 
terface (de los que, a lo peor, no te- 
nemos suficiente información téc- 
nica) mientras los responsables de 
esta falta de información que a to- 
dos nos afecta (sean fabricantes, dis- 
tribuidores o vendedores) duermen 
tranquilos. 

Nos gustaría que esta sección fue- 
ra algo mucho más abierta y más hu- 
mana también; una vía de comuni- 


cación lectores-redacción por la que 
pasarán todas vuestras inquietudes 
y gracias a la que pudierais ver pu- 
blicada cualquier coda que os ape- 
tezca. Esperamos una verdadera llu- 
via de cartas en las próximas sema- 
nas. Mientras tanto, amigo Raúl, te 
recomendamos que sigas con asi- 
duidad la serie de Lenguaje Máqui- 
na para que puedas resolver por ti 
mismo ese problema que tanto te 
preocupa, 


QL SUPERCHARGE, 
EL COMPILADOR 
FANTASMA 


Soy suscriptor de su revista TO- 
DOSPECTRUM, y estoy muy satis- 
fecho de ella, sobre todo la sección 
dedicada al ordenador QL. 

En el número de abril del 86 hubo 
un artículo dedicado al QL en que se 
mencionaba el compilador de Digital 
Precisión SUPERCHARGE. Como 
me interesa lo quise comprar y no me 
fue posible ya que no sabían que exis- 
tía. ¿Me pueden dar alguna dirección 
para adquirirlo? 


Luis de la Rosa 
Barcelona 


El programa al que hace men- 
ción fue adquirido en una de nues- 
tras visitas al Reino Unido, y no sa- 
bemos con certeza si en estos mo- 
mentos alguna casa ha iniciado su 
distribución por nuestro país o si es- 
to llegará a hacerse algún día. Todo 
lo que podemos ofrecerte por el mo- 
mento son las señas del comercio 
donde lo adquirimos por si pudiera 
negociar su adquis 
Estas son: 


SONIC FOTO CENTER 
256 TOTTENHAM 
ROAD 

LONDON WIP 9AD 
Tel.: 01-580 5826/7 


COURT 


iOjo!, el precio que tuvimos que 
pagar por el programa rozó las 100 
Libras esterlinas. 


Vendo Spectrum 48 K, cables, 
alimentador, manual (en español 
y en inglés), revistas, más de 40 
juegos, interface de joystick 
Kempston y el libro «Profundi- 
zando en el Spectrum». Todo en 
buen stado por 23.000 ptas. Inte- 
resados escribir a Juan J. Sosa Lo- 
renzo. Pza. del Escorial, 4, 5.°. Las 
Plamas de Gran Canaria. Tel.: 
(928) 36 87 03. 


Club para principiantes del 
Spectrum. Intercambios. Escribid 
а). Н. А. Federico García Lorca, 
21, 8.° В. Algeciras (Cádiz). 


BL 
CORCHO 


Vendo Spectrum 48 K con tecla- 


do multifunción 1, accesorios y 
documentación, junto con nume- 
rosos programas de juegos y utili- 
dades, entre ellos lenguajes Logo 
castellano, Forth y Pascal de Hi- 
soft, por sólo 30.000 ptas. Llamar 
noches al Tel.: (91)315 71 93. Pre- 
guntar por Tomás. 


Vendo ordenador Spectrum 48 
K, juegos, programas y manual, 
Interface 1, microdrive, Interface 
Indescomp serie y paralelo. Pre- 
cio 35.000 ptas. negociables. 
También los vendemos por sepa- 
rado, precio a convenir. Ana. 


Tel.: (91) 437 49 03. 


Vendo Interface 1, 2 unidades de 
microdrive, 20 cartuchos de mi- 
crodrive, libro de manejo y ma- 
nual de instruccions. Todo en 
25.000 ptas. Joaquín Bayón Ló- 
pez. Capitán Almeida, 28, 1.° B. 
Tel.: (985) 22 61 13. 33009 Ovie- 
do. 


Vendo programas para Casio PB 
100, PB 110, PB 700, PB 770, FX 
750-P. Envío lista completa. Luis 
Alonso Pablo, junior. José Ricart, 
44, At. 3.*. Sant Feliu de Llobre- 


LOS MEJORES 
PROGRAMAS 


ats al 


P.V.P. 750 Р 


(IVA INCLUIDO) 
Descubre los misterio: 


programació 
sencilla, con 


programas y organigramas. 


(110 pág 


P.V.P. 750 P' 


(УА INCLUIDO) 

Un libro especialmente 

dedicado a los que se inician 
vez primer 

5; trum. 


(100 páginas. 


Р.У.Р. 900 PTAS. 
(VA INCLUIDO) 
Un compendio 
programas más diversos con 
los que podrá aprender 


jugando І 
caracter 
(258 рас 
15,5 x 21,5) 


E 


= LE OFRECE LOS MEJORES LIBROS 


PARA SU ORDENADOR 


P.V.P. 800 PTAS. 
¡CLUIDO) 
utilidad 


TAS. 


de la 
de una forn 
jemplos, 


posibilidac 
(200 páginas, tamaño 
5 x 21,5) 


tamaño 135 х 21) 


P.V.P. 800 PTAS. 


TAS. 
ti y 
етеп!ага la qu 


proporciona el manual de 
el mundo ordenador 
(108 páginas tam 
tamaño 13,5x 21) 13,5 x 21,5). 


los 


completa del corre 


importantne 
as del BA 
, tamaño 


шша шаша ша COPIE O RECORTE ESTE BOLETIN DE PEDIDO. -> 


EO RECIBIR LOS SIGUIENTES TITULI 
S CON EL 


І 15 HO CTRUM (Р.М. 
MEJORES PROG 


'AMAS PARA E 
LOS MEJORES PROGRAMAS PARA EL ( 
EL 64 MAS ALLA DEL MANUAL І (P.V 
EL 64 MAS ALLA DEL MANUAL Il (P.V 
(más 100 ptas. de gastos de envio) 
El importe lo abonaré POR CHEQUE О CONTRA REEMBOLSO] CON MI TARJETA 
DE CREDITO O American Express O Visa О Interbank O 


М (P.V.P. 900) О 
DORE 64 (РМР, 800) О 


Númerc mi tarje КЕШІ І 
МОМВВЕ 

CALLE —— = І 
CIUDAD == = І 
PROVINCIA С.Р. 


LA GUIA LOTUS PARA UTILIZAR SYMPHONY 
es un libro que le enseñará paso a paso, y de 
una forma muy práctica cómo utilizar este 
programa. 


LA GUIA LOTUS contiene: 
— Cómo crear y manejar ficheros 


— Descripción detallada de las facilidades 
que ofrecen las ventanas de SYMPHONY, 


L 


— Apéndice que cubre las aplicaciones adi- 


CARACTERISTICAS: cionales que van incluidas en el programa. 
“ Páginas: 443 ; f 

. Papel offset: 112 grs — Un indice detallado y un vocabulario don- 
* Tamaño: 182 x 232 mm. de fácilmente podrá encontrar cualquier 
* Encuadernación: Rústica-cosido tema que necesite. 


El complemento indispensable para el manual de SYMPHONY 


OFERTA DE LANZAMIENTO 4.500 PTAS. (IVA INCLUIDO) 


Recorte y envíe HOY MISMO este cupón a: infodis, 5.2. c/ Bravo Murillo, 377 - 28020 MADRID 
CUPON DE PEDIDO 


TAMBIEN 
LO PUEDE 
ADQUIRIR 
EN SU LIBRERIA 
HABITUAL 


